(bind-func toString:[String*,List*]*
(lambda (xs)
(if (null? xs)
(sprintln "()")
(let ((ska:String* (sprintout "(" (car xs))))
(for-each (lambda (xz)
(set! ska (sprintout ska " " xz)))
(cdr xs))
(sprintout ska ")")))))