main :: IO ()
main = print . sum $ [ count (x, y) | x <- [1 .. m], y <- [1 .. n] ]
  where
    m = 47
    n = 43
main :: IO ()
main = print . sum $ [ count (x, y) | x <- [1 .. m], y <- [1 .. n] ]
  where
    m = 47
    n = 43
main = print . sum $ [ count (x, y) | x <- [1 .. m], y <- [1 .. n] ]
  where
    m = 47
    n = 43