module System where data ExitCode = ExitSuccess | ExitFailure Int