main :: IO ()
main = do
  print (length [(x, y) | x <- mySqr, y <- myCube, x < 50 && y < 50])
main :: IO ()
main = do
  print (length [(x, y) | x <- mySqr, y <- myCube, x < 50 && y < 50])
main = do
  print (length [(x, y) | x <- mySqr, y <- myCube, x < 50 && y < 50])