module Main where

main :: IO ()
main = do
	let
		patternOfQQ = [(x,y)|x<-[1..9],y<-[1..9]]
		str = map getStrQQ patternOfQQ
	mapM_ putStrLn str

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