module System where import System cExitWith primitive 1 :: ExitCode -> a