import Data.Foldable (traverse_)

main =
  traverse_ printQQ $ do
    x <- [1..9]
    y <- [1..9]
    return (x, y)
  where
  printQQ (x, y) = putStrLn $ show x ++ "x" ++ show y ++ "=" ++ show (x * y)

