(bind-func print:[void,aiString*]* (lambda (str) (if (null? str) (begin (printout "''") void) (let ((size (tref str 0)) (dat (convert (tref-ptr str 1) i8*))) (printf "'%s'" dat) void))))