Parallel Test 2

import Control.DeepSeq
import Control.Parallel
import Control.Monad

fpseq,fpar :: NFData a => a -> b -> b
fpseq a = pseq (force a)
fpar a = par (force a)

test1 = a + b + c

test2 :: Int
test2 = a `fpar` b `fpar` c `fpseq` (a + b + c)

main = print test2

a = ack 3 9
b = fac 10
c = fib 10

fac 0 = 1
fac n = n * fac (n-1)

ack 0 n = n+1
ack m 0 = ack (m-1) 1
ack m n = ack (m-1) (ack m (n-1))

fib 0 = 0
fib 1 = 1
fib n = fib (n-1) + fib (n-2)