#!/usr/bin/guile -s
!#
(use-modules (ice-9 debug))

(define datadir "../common/")

(load (string-append datadir "ensign.scm"))

(load (string-append datadir "str.scm"))
(load (string-append datadir "algo.scm"))
(load (string-append datadir "pipe.scm"))
(load (string-append datadir "woobus.scm"))
(load (string-append datadir "command.scm"))
(load (string-append datadir "command-compat.scm"))

(define (process cmds)
  (wait-accept backward-address)
  (for-each process-command cmds)
  (write-line end-of-message)
  (force-output (current-output-port)))

(define (main)
  (process (in))
  (main))

(main)
