module Mul where

mulshow (m,n) = show(m) ++ " * " ++ show(n) ++ " = " ++ show(m * n) ++ "\n"

join _ [] = []
join [] _ = []
join (x:xs) (y:ys) = (x, y) : (join [x] ys) ++ (join xs (y:ys))

main = putStr (foldr (++) [] (map mulshow (join [2..9][1..9])))