(setq testdat 
      '(
	(lisp (setq tag 'gothic)(tate2 うかんむり 木 ((limit . 0.3))))
	(lisp (setq tag 'mincho)(tate2 うかんむり 木 ((limit . 0.3))))
	(lisp (setq tag 'gothic)
	      (tate2 くさかんむり 田 ((ratio . 0.4)(limit . 0.9))))
	(lisp (setq tag 'mincho)
	      (tate2 くさかんむり 田 ((ratio . 0.4)(limit . 0.9))))
	(lisp (setq tag 'gothic)
	      (tate2 士 心 ((ratio . 0.5))))
	(lisp (setq tag 'mincho)
	      (tate2 士 心 ((ratio . 0.5))))
	(lisp (setq tag 'gothic)
	      (tate2 害の中 すいにょう))
	(lisp (setq tag 'mincho)
	      (tate2 害の中 すいにょう))
))