#lang racket
(run-stuff)
(when (something-bad-happened) (exit 1))