Task

Express a number in decimal as a fixed-length string with leading zeros.



For example, the number   7.125   could be expressed as   00007.125.




(load "srfi-54.scm")
(load "srfi-54.scm") ;; Don't ask.
 
(define x 295643087.65432)
 
(dotimes (i 4)
  (print (cat x 25 3.0 #\0 (list #\, (- 4 i)))))
 