import           Control.Applicative
import           Control.Monad

main = do
  sequence
    [ putStrLn $ show x ++ "x" ++ show y ++ "=" ++ show (x * y)
    | x <- [1 .. 9]
    , y <- [1 .. 9]
    ]

