import Control.Monad
import System.Exit

when problem do
    exitWith ExitSuccess                    
    exitWith (ExitFailure integerErrorCode) 
    exitSuccess                             
    exitFailure