a = [1..9]
b = [1..9]

writeQQ xa xb = [[show a ++ "x" ++ show b ++ "=" ++ show (b * a) | a <- xa] | b <- xb]

main = do 
    let c = writeQQ a b
        makeShow = \x -> x
        d = c >>= makeShow
    mapM putStrLn d

