(setq testdat '(
		(tate2 ののじ土 口) ; 告
		(tate-nocenter ののじ土 口)
		(tate12 日 升) ; 昇
		(tate-nocenter 日 升)
		(tate2 隹 木) ; 集
		(tate-nocenter 隹 木)
		(tate2 貞の上 はのじ) ; 貞
		(tate-nocenter 貞の上 はのじ)))