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