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]";
# }