(port-map(rec,a(let*((f string-copy)(m(#/(\S+) . (\S+)/a))(t(rec,y(read-from-string #`"#e,(m y)e99")))(s #?=#`"0000000,(+(t 1)(t 2))")(l(-(string-size s)99)))(print((#/0*(\d+\.\d*?)0*$/#`",(f s 0 l).,(f s l)")1))))read-line)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).