{-# OPTIONS_GHC -Wall -Werror #-}

import Control.Applicative

qq :: Int -> Int -> String
qq x y = show x ++ "x" ++ show y ++ "=" ++ show (x * y)

main :: IO ()
main = mapM_ putStrLn $ qq <$> [1..9] <*> [1..9]