;
; $Id: 1B_newTOUPPER,v 1.1 1991/09/09 22:39:49 ohm Exp $
;
(defvar low (all))
Q	Q
q	q
(low)	(tozenhira (toupper (low)))
