(bind-func toString:[String*,aiString*]* (lambda (str) (if (null? str) (Str "") (let ((size (tref str 0)) (dat (convert (tref-ptr str 1) i8*))) (Str dat)))))