program-id.y.data division.working-storage section. 1 i pic 999. 1. 2 s pic x(199) occurs 15.procedure division.a.add 1 to i move i(3- function log10(i):)to s(1+i/3- i/5)(i+(i- 10)*0^(10/i):)if i>86 display function trim(s(i- 86),trailing).go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).