main :: IO ()
main = do
  mapM_ putStrLn ans'

format :: Int -> Int -> String
format i j = show i ++ "x" ++ show j ++ "=" ++ show (i * j)

ans' = foldr (\i b -> f i ++ b) [] [1..9]
f i = map (format i) [1..9]