module A4 where
import Control.Parallel.Strategies (rpar, runEval)
fib n
    | n <= 1 = 1
    | otherwise = (fib (n - 1)) + (fib (n - 2))
 
bigFib = fib 200
 
evenBiggerFib = fib 30000
 
someComp = (bigFib_2 + evenBiggerFib) + 42
 
closureY = bigFib_2 + 32
 
bigFib_2
    =
        runEval
            (do bigFib_2 <- rpar bigFib
                return bigFib_2)
 