-> (displayln (~a 7.125 #:width 9 #:align 'right #:pad-string "0"))
00007.125