SSI`S`S`K(S`SSKS(S`K`S`KS(S`K`S`K`S(S(S(S(SI`KK)`K(SI`K0))`K(S`SII(S`SSKSKI)(S`K`S(SI`KK)K)(SSSSSS(SS0)(S`KSK)(S`K`S(SI`K0)K)0)))`KK)(S`K`S(S`KS(SS`S(S(SI`K(SI`K0))`K(SSI`S`S`K(S`K`S(SI`K(S`K`S(SI`K(S(SSSSS)(SSI(SS0))(S`KSK)))(S`KK(S`K`S(SI`K(SS(S(SSS)(SS(SSSS(SS0))))(S`KSK)))(S`KK(S`K`S(SI`K(S(S(SSSS(SS0))S)(S(SSS)(SS(SSSS(SS0))))(S`KSK)))K))))))(S`KK(S`K`S(SI`K(S`K`S(SI`K(S(SSS)(S`SSKS`SSI(SS0))(S`KSK)))(S`KK(S`K`S(SI`K(S(SSSSS)(SSI(SS0))(S`KSK)))K))))(S`KK(S`K`S(SI`K(S`K`S(SI`K(SS(SS(SSSSSS(SS0)))(S`KSK)))(S`KK(S`K`S(SI`K(SS(SS(S(SSS)(SS(SSSS(SS0)))))(S`KSK)))(S`KK(S`K`S(SI`K(SS(S(SS0)(SS(SSSS(SS0))))(S`KSK)))(S`KK(S`K`S(SI`K(S(SS`S(SIS)S)(SSSS(SS0))(S`KSK)))(S`KK(S`K`S(SI`K(S(S(S(SSSSSSS)(SS0))S)(SSSSSS(SS0))(S`KSK)))(S`KK(S`K`S(SI`K(SS(S(SSSSSSSSSSS)(SS0))(S`KSK)))(S`KK(S`K`S(SI`K(S(SSSSSSS)(SS(SS0))(S`KSK)))K))))))))))))))K)))))I))`KK))(S`KK(S`K`S(S`KS`SI)(S`K`S`KK(S`K`SI(S`KK(S`KK(SI`K0))))))))))(S`K`S`K`SI(S`K`S`K`S`KK(S`SSKS(S`KK(S`KSK))`K(S`K`S(S(SS`K(SISSKS))`KK)K)))))I0
## source
#
# xlist = y1 [f.
# cons2 {pre_str "Pow"}
# cons2 {pre_str "HP"}
# cons2 {pre_str "Special"}
# f
# ];
#
# y1
# [f.[a.[r.
# if-out-of-range3 (car1 r) 16 81
# (nth2 a xlist (setcdr2 (o-cdr2 (f 0) r) r))
# (o-cdr2 (f (car1 r succ a)) r)
# ]]]
# 0
## perl
# sub pre_str {
# my $e="";
# for($_[0]=~/./sg){
# $e.="cons2 ".(ord)." ";
# }
# "[z. $e z]";
# }
Note that non-ascii characters in the above source code will be escaped (such as \x9f).