sub p{$_=pop@n}
sub w{push@n,@_}
$/=$T;$_=uc<>;
s#.#+{qw(
H 0p;w$n[-1-abs];$_>0&&splice@n,-2-$_,1
T 1$t=p;p&&goto"L$t"
A 2w$L+1
O 3print+chr+p
I 4w+($_=getc)?ord:-1
N 5w$N++
S 6w-(p)+p
E 7$0=p;p;w+int$_/$0,$_%$0
)}->{$&}=~/./&&"\$N?$&>6?\$N=0:w $&+7*p:do{$'};\n"#eg;
s/^/L${\++$i}:\$L=$i;/mg;
eval;
L0: