posToCoords :: Int -> (Int, Int)
posToCoords pos =
    let
        y = pos `div` 3
        x = pos `mod` 3
    in
        (x, y)
posToCoords :: Int -> (Int, Int)
posToCoords pos =
    let
        y = pos `div` 3
        x = pos `mod` 3
    in
        (x, y)
posToCoords pos =
    let
        y = pos `div` 3
        x = pos `mod` 3
    in
        (x, y)