{-# OPTIONS_GHC -Wall -Werror #-}

qq :: (Int, Int) -> String
qq (xi, yi) = x ++ "x" ++ y ++ "=" ++ ans
  where x   = show xi
        y   = show yi
        ans = show (xi * yi)

main :: IO ()
main = mapM_ putStrLn [qq (x, y) | x <- [1..9], y <- [1..9]]