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