Initial revision
(setq testdat '( (tate2 田 日) (tate2 口 田) (tate2 田 日) (tate2 口 田) (tate2 田 日) (tate2 口 田) (tate2 田 日) (tate2 口 田)))