import Control.Parallel12main = a `par` b `par` c `pseq` print (a + b + c)3where4a = ack 3 105b = fac 426c = fib 3478fac 0 = 19fac n = n * fac (n-1)1011ack 0 n = n+112ack m 0 = ack (m-1) 113ack m n = ack (m-1) (ack m (n-1))1415fib 0 = 016fib 1 = 117fib n = fib (n-1) + fib (n-2)1819