program-id.y.data division.working-storage section.
1 i pic 99.
1 k pic 9(9).
1 n pic 9(11).
1 s pic x(11).
procedure division.a.accept s
move s to n
move 0 to i k.b.add 1 to i
compute n=n/10
if n>0 compute k=k+function factorial(i)*function mod(n,10)go b.display
k(9- function log10(k):)if 84=k(3:2)display 6 else if k<>24 if k<>508 go a.