;
; $Id: 1B_TOUPPER,v 1.1 1991/09/11 02:31:27 ohm Exp $
;
(defvar low (all))
(low)	(toupper (low))
