Initial revision
(setq testdat '( (tate2 あめかんむり 田) (tate-kurosa あめかんむり 田) (tate2 書の上 日) (tate-kurosa 書の上 日) (tate2 にし 米) (tate-kurosa にし 米) (tate2 にし 女) (tate-kurosa にし 女) ))