module TException where -- >>> exceptionalCode -- *** Exception: I am exceptional! exceptionalCode :: Int exceptionalCode = error "I am exceptional!"