import Control.Monad
import Text.Printf

infixl 0 `dot`
dot :: (c -> d) -> (a -> b -> c) -> a -> b -> d
dot = ((.).(.))

main :: IO ()
main = do
  forM_ [1..9] $ \i -> do
    forM_ [1..9] $ \j -> do
      printf "%dx%d=%d\n" (i :: Int) (j :: Int) (i * j)

