(bind-func toString (lambda (x:double) (let ((st:i8* (salloc 256))) (sprintf st "%f" x) (String st))))