main = do
  mapM_ putStrLn aux

aux :: [String]
aux = map mulStr [(i,j)|i<-[1..9],j<-[1..9]]
      where
        mulStr::(Int,Int) -> String
        mulStr (i,j) = (show i)++"x"++(show j)++"=" ++ (show (i*j))