[Haskell-cafe] A program which never crashes (even when a function calls "error")