(bind-func print:[void,List*]*
(lambda (xs)
(if (null? xs)
(begin (printout "()") void)
(begin
(printout "(" (car xs))
(for-each (lambda (x) (printout " " x)) (cdr xs))
(printout ")")
void))))