-- | A tile which has no intrinsic fu value i.e. is suited or not round or
-- player kaze. Depends on the kyoku state.
valueless :: YakuCheck MentsuProp
valueless = do
    vi <- yakuState
    let valuedKaze = [ vi^.vPlayer, vi^.vKyoku.pRound._1 ]
        valueless  = map (sameTile . T.kaze) $ filter (`onotElem` valuedKaze) [T.Ton .. T.Pei]
    return $ foldr (|.) suited valueless
valueless :: YakuCheck MentsuProp
valueless = do
    vi <- yakuState
    let valuedKaze = [ vi^.vPlayer, vi^.vKyoku.pRound._1 ]
        valueless  = map (sameTile . T.kaze) $ filter (`onotElem` valuedKaze) [T.Ton .. T.Pei]
    return $ foldr (|.) suited valueless
valueless = do
    vi <- yakuState
    let valuedKaze = [ vi^.vPlayer, vi^.vKyoku.pRound._1 ]
        valueless  = map (sameTile . T.kaze) $ filter (`onotElem` valuedKaze) [T.Ton .. T.Pei]
    return $ foldr (|.) suited valueless