SSI`S`S`K(S(S`KS(S`K`S`KS(S`K`S`K`S`KS(S`K`S`K`S`K`S(S(S(S(SI`KK)`K(SI`K0))`K(S`SII(SSS`KSKI)(S`K`S(SI`KK)K)(SSSSSS(SS0)(S`KSK)(S`K`S(SI`K0)K)0)))`KK)(S`K`S(S`KS(S`K`S`KS(S`K`S`KK(S`K`S`K(SSI`S`K`S(S(SI`K(S(S(S`K(SSSS(SS0)(S`KSK)(S`K`SIK)`K0)(S(S(SI`K0)`K(S`K`SIK))`K`KK))(S`SSKS(S`K`SI(S`SI`KK))(S`KK(S`K(SISSKSK)(SI`K0)))))(S`SSKS(S`K`SI(S`KK(S`K(SISSKSK)(SI`KK))))`K`K0)))`K(S(SI`K0)`K0))(S`KK(S`SSKS(S`K`S`KS(S`K`S`KK(S`K`S`KS(S`K`S`KK(S`K`S(S(SI`K0)`K0)(SII))))))`K`K(S`SSKS(S`KK(S`KS(S`K`SI(S`KK(S(S(SSSSSSSSS)(SS0))S(S`KSK))))))`KK))))(S(S`KS(S(S`KS(S`K`S(SI`K(SISSKSK))(S`KK(S(S(S(S(S(SI`K(SI`K0))`K(SS(SSSS(SS0))(S`KSK)(S`K`S(SI0)K)(S(SI`K`K`K`K(SSS`KSKI))0)))`KK)0)0)`K0))))`K`K(S(S(SI`K(S`K`SI(S`KK(SI`K(SISSKSK)))))`K`K0)0)))(S`KK(SISSKSK)))))))(S`KK(S`KK(S`K`S(S`KS(S`K`SI(S`KK(SI`KK))))(S`K`S`KK(S`K`SI(S`KK(S`KK(S(SI`K0)`K0)))))))))))))(S(S`KS(S`KK(S`KS(S`K`S`KS(S`K`S`K`S(S`K(S(SSSSSSSSS)(SS0)(S`KSK)(S`K`SIK)`K0)(S(S(SI`KK)`K(S`K`SIK))`K`KK))(S`K`S`K`SI(S`K`S`KK(S`K`S`KK(SS`K`K0)))))))))(S`K`S`K`S`K`SI(S`K`S`K`S`K`S`KK(S(S`KS(S`K`S`KS(S`K`S`KK(S`K`S`KS`S`KK))))`K`K(S`K`S(S(S`K(S(SSSSSSSSS)(SS0)(S`KSK)(S(S(SI`K(S`K`SI(S`KK(SI`K(SISSKSK)))))`K`K0)0))(SI`KK))`K(SISSKSK))(S`KK`S`K(SS(SSSS(SS0))(S`KSK)))))))))I0(0) ## source # y1 # [f.[a.[b.[r. # if-out-of-range3 (car1 r) 16 81 # ( # # end of line or end of input # shownum-zero (b succ (ifeq4 a 10 2 0) pred (succ a)) # cons2 (car1 r) # o-cdr2 (f 0 0) r # ) # ( # iflt2 (car1 r) 48 # ( # # comma # o-cdr2 (f b 0) r # ) # ( # # digit # o-cdr2 (f a (48 pred car1 r succ (o1 10 b))) r # ) # ) # ]]]] # 0 # 0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).