RosettaCodeData/Task/Compile-time-calculation/Haskell/compile-time-calculation-1.hs

module Factorial where
import Language.Haskell.TH.Syntax

fact n = product [1..n]

factQ :: Integer -> Q Exp
factQ = lift . fact