program-id.y.data division.working-storage section. 1 n pic 999. 1 s pic x(100) value"#$&(%+.*,'140)7:268-C=@;E></IFBD3ULH5[OJNP9gRTVXZSa^Ych\?yd`A\x7fjbflG\x91mpnrtK\x9dsvozxM\xa3|w\x81\x86~\x80Q\xaf\x82\x84}\x8a\x88\x85\x8b\x8e\x8cW".procedure division.a.compute n=function ord(s)- 35 move s(2:)to s display n(3- function log10(n):)if s>""go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).