GHC *is* resource hungry

Here is a harmless little program (no recursion, no data types)
which GHC doesn't manage to compile (well, the kernel kills GHC
after a while on a machine with generous 512MB of main memory
and 1GB of swap space).

> begin next = next id
> leaf k i next = next (k i)
> fork k next = next (\ t u -> k (t + u))
> end x = x
> main = print (begin fork fork fork fork fork fork fork fork fork fork leaf 0 
> leaf 0 leaf 0 leaf 0 leaf 0 leaf 0 leaf 0 leaf 0 leaf 0 leaf 0 leaf 0 end)

Both Hugs and nhc98 accept it almost immediately.

Cheers, Ralf