main :: IO ()
main = do
    mapM_ putStrLn $ qq

qq :: [String]
qq = reverse $ qq' 9 9
    where
        qq' :: Int -> Int -> [String]
        qq' 1 0 = []
        qq' m 0 = qq' (m-1) 9
        qq' m n = (sm ++ "x" ++ sn ++ "=" ++ (show $ m * n)):(qq' m (n-1))
            where
                sm = show m
                sn = show n