FLAGS="--dump-check - --dump-erase - --dump-scheme - --color=none --width=100000"

check() {
  $1 $FLAGS "$2" -P check 2>&1
}

erase() {
  $1 $FLAGS "$2" -P erase 2>&1
}

scheme() {
  $1 $FLAGS "$2" -P scheme 2>&1
}

compile_run() {
  $1 $FLAGS "$2" -o "$3" 2>&1
  chezscheme --program "$3"
}