validPoint :: P2 -> Bool
validPoint (x,y)
    | x < 0 || x >= width  = False
    | y < 0 || y >= height = False
    | otherwise            = True
validPoint :: P2 -> Bool
validPoint (x,y)
    | x < 0 || x >= width  = False
    | y < 0 || y >= height = False
    | otherwise            = True
validPoint (x,y)
    | x < 0 || x >= width  = False
    | y < 0 || y >= height = False
    | otherwise            = True