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