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