module Fact where
-- fact :: Int -> Int  -- doesn't work with this
fact n = product [1 .. n]