main =
    mapM_ putStrLn (map singleQQLine [(i,j) | i <- [1..9], j <- [1..9]])

singleQQLine :: (Int, Int) -> String
singleQQLine (a,b) =
    foldl (++) "" [(show a), "x", (show b), "=", (show (a*b))]