Name: Anonymous 2012-11-27 21:40
(use extras) ; compile with chicken
(define run-cmd
(lambda args
(display "?")
(newline)))
(let loop ((line (read-line)))
(cond ((not (eof-object? line))
(run-cmd line)
(loop (read-line)))))