solve x y
  | y < 9 = do
    putStrLn((show x)++"x"++(show y)++"="++(show (x*y)))
    solve x (y+1)
  | x < 9 = do
    putStrLn((show x)++"x"++(show y)++"="++(show (x*y)))
    solve (x+1) 1
  | otherwise = do
    return ()

main = do 
  solve 1 1