module Main where

import Control.Parallel

main = a `par` b `par` c `par` d `pseq` print (a + b + c + d) 
  where
    a = fib 35
    b = fib 36
    c = fib 37
    d = fib 38

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