import           Control.Applicative
import           Control.Monad


as :: [String]
as =
  [ show x ++ "x" ++ show y ++ "=" ++ show (x * y) | x <- [1 .. 9], y <- [1 .. 9] ]

main = mapM_ putStrLn as
