import Control.Monad

out a b = (show a) ++ "x" ++ (show b) ++ "=" ++ (show $ a * b)

main = do
    let lst = [1,2,3,4,5,6,7,8,9]
    let hoge = concat $ map (\x -> map (out x) lst) lst
    forM_ hoge $ \x -> putStrLn x





