import           System.IO
import           Control.Monad
import           Control.Applicative
import           Control.Monad.State

kuku :: [String]
kuku =
  [ show a ++ "x" ++ show b ++ "=" ++ show (a * b)
  | a <- [1 .. 9]
  , b <- [1 .. 9]
  ]

main = mapM putStrLn kuku

