л-во белых клеток
type CntWhite = Int
-- | координата курсора мыши
type Point = (Float, Float)
-- | вещ х y координату -> целочисл x y
po
initialLocation :: (Float, Float)
initialLocation = (-100, -100)
initialLocation = (-100, -100)