-- An infinite loop due to a recusrive let:
inf :: Int
inf = let x = 1 + x in x

main = print inf

-- To see the black hole detection, compile this program:
-- > ghc --make BlackHole.hs
-- > ./BlackHole