;
; $Id: 3B_HANKATA,v 1.1 1991/09/09 22:39:32 ohm Exp $
;
(defvar a (all))
(a)	(tohankata (a))
