(setq testdat
      '(
	(yoko2 つちへん 隹 ((limit . 0.6)))
	(yoko-noupdown つちへん 隹((limit . 0.6)))
	(yoko2 おうへん 朱 ((limit . 0.6)))
	(yoko-noupdown おうへん 朱((limit . 0.6)))
	(yoko2 くちへん 亜)
	(yoko-noupdown くちへん 亜)
	(yoko12 にちへん 乍 ((limit . 0.6)))
	(yoko-noupdown にちへん 乍 ((limit . 0.6)))))