(setq testdat 
      '(
	(tate2 自 大)
	(tate-kuikomi 自 大)
	(tate2 甘 木)
	(tate-kuikomi 甘 木)
	(tate2 三人 日)
	(tate-kuikomi 三人 日)
	(tate2 共の上 日)
	(tate-kuikomi 共の上 日)))