1 2 3 4 5 6 7 8
module Main where fn2 f = \x -> if (x == 0 || x == 1) then x else f (x-1) + f (x-2) fpc f = f (fpc f) fibonacci = fpc fn2 main = print (fibonacci 4)
1
3