anyKoutsuKantsu  tkind = liftF $ YakuMentsu (MentsuKoutsuKantsu   &. tkind) ()
anyKoutsuKantsu  tkind = liftF $ YakuMentsu (MentsuKoutsuKantsu   &. tkind) ()
anyKoutsuKantsu  tkind = liftF $ YakuMentsu (MentsuKoutsuKantsu   &. tkind) ()