;
; $Id: 1B_TOUPPER,v 1.1 1994/06/28 02:30:42 kuwa Exp $
;
(defvar low (all))
(low)	(toupper (low))
