(setq testdat 
      '(
	(tate2 木 口) ;杏
	(tate-nowidth 木 口)
	(tate2 立 日) ;音
	(tate-nowidth 立 日)
	(tate2 害の中 月つくり) ;青
	(tate-nowidth 害の中 月つくり)
	(tate2 田 畏の下) ;畏
	(tate-nowidth 田 畏の下)))