(let1 s(map x->number(string-split(read-line)":"))(let l((i(car s))(n(cadr s)))(when(> i 0)(print n)(l(- i 1)(quotient(*(+(caddr s)100)n)100)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page