import Data.Functor
import Control.Applicative

main::IO ()
main=mapM_ putStrLn qq

qq::[String]
qq=
  let list=(,) <$> [1..9] <*> [1..9] in
  map (\(x,y)->show x ++ 'x' : show y ++ '=' : show (x*y)) list