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