-- | Simple yaku helper to require some same property from the four mentsu
-- and the pair.
allMentsuOfKind :: MentsuProp -> YakuCheck ()
allMentsuOfKind tkind = do
    anyJantou tkind
    replicateM_ 4 $ anyMentsu tkind

-- | Fail the hand
allMentsuOfKind :: MentsuProp -> YakuCheck ()
allMentsuOfKind tkind = do
    anyJantou tkind
    replicateM_ 4 $ anyMentsu tkind

-- | Fail the hand
allMentsuOfKind tkind = do
    anyJantou tkind
    replicateM_ 4 $ anyMentsu tkind

-- | Fail the hand