main = do 
    let 
        a = [1..9]
        b = [1..9]
    mapM_ putStrLn [writeQQ aa bb | aa <- a, bb <- b]

writeQQ :: Int -> Int -> String
writeQQ a b = show a ++ "x" ++ show b ++ "=" ++ show (b * a)

