(setq testdat 
      '(
	(tate2 あめかんむり よのじ)
	(tate-nowidth あめかんむり よのじ)
	(tate2 そのじ 酉)
	(tate-nowidth そのじ 酉)
	(tate2 田 心)
	(tate-nowidth 田 心)
	(tate2 日 (xscale 1.4 日) ((ratio . 0.5)))
	(tate2 日 日)))