anyMentsuJantou' tkind = liftF $ YakuMentsu' (MentsuOrJantou     &. tkind) id
anyMentsuJantou' tkind = liftF $ YakuMentsu' (MentsuOrJantou     &. tkind) id
anyMentsuJantou' tkind = liftF $ YakuMentsu' (MentsuOrJantou     &. tkind) id