main :: IO ()
main = putStrLn $ foldl (\acc (x, y) -> acc ++ (showMultiplication x y) ++ "\n") "" $ table
  where
    table = concat [[(x, y) | y <- [1..9]] | x <- [1..9]]
    showMultiplication x y = (show x) ++ "x" ++ (show y) ++ "=" ++ (show (x * y))

