1 2 3 4 5 6 7 8

module Main where fn f = \x -> if (x == 0) then 1 else x * f (x - 1) fpc f = f (fpc f) factorial = fpc fn main = print (factorial 4)

1

24