main :: IO ()
main =  print [ (n, product [1..n]) | n <- [1..20]]