moveExistAtPos :: Int -> [Move] -> Bool
moveExistAtPos pos moves =
    let
        (x, y) = posToCoords pos
    in
        moveExistAtCoords x y moves
moveExistAtPos :: Int -> [Move] -> Bool
moveExistAtPos pos moves =
    let
        (x, y) = posToCoords pos
    in
        moveExistAtCoords x y moves
moveExistAtPos pos moves =
    let
        (x, y) = posToCoords pos
    in
        moveExistAtCoords x y moves