-- Check MentsuProps directly.

-- | Find a match in a list of mentsu. Returns the matches identifier tile and leftovers.
findMatch :: MentsuProp -> Grouping -> Maybe (TileGroup, Grouping)
findMatch _  []   = Nothing
findMatch :: MentsuProp -> Grouping -> Maybe (TileGroup, Grouping)
findMatch _  []   = Nothing
findMatch _  []   = Nothing