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