test.ss
#lang scheme/base

(require "main.ss")

(define (run exec)
  (display "feep\n")
  (exec "echo" "this" "is" "SPARTA")
  (display "foop\n"))

(define (main)
  (with-exec run))

(provide main)