;;;; Наипримитивнейший "пускач" для отдельных процедур. Вызов:
;;;; guile1 -l exercise.scm launcher.scm <in 1>out 2>err

(begin
  (display (eval (read) (interaction-environment)))
  (newline))