-- Compile:
-- ghc -O2 --make maths.hs -threaded -rtsopts
--
-- Run:
-- time ./maths +RTS -N2

import Text.Printf
import Control.Parallel

main = (a::Integer) `par` (b::Integer) `par` (c::Integer) `pseq`
	(printf "A = %d\nB = %d\nC = %d\n" a b c) where
	a = ack 3 10
	b = fac 42
	c = fib 34

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)