Runtime crash with recursive bindings

[benl]

The following Haskell code to solve the 2nd Euler problem causes a runtime crash.

maxN	= 10000
main ()
 = do	println $ show solution1

even x = x `mod` 2 == 0

solution1 
  = sum [ x 	| x <- takeWhile ((<=) maxN) fibs
              		, even x]
  where	fibs = 1 : 1 : zipWith (+) fibs (tail fibs)

[benl]

We don't handle recursive bindings like fibs. This should give an error instead of a runtime crash.