Select Code to Download

k     <2> sassign vKS/2 ->l
i        <$> const(IV 0) s ->j
-        <1> ex-rv2sv sKRM*/1 ->k
j           <$> gvsv(*a) s ->k

i     <;> nextstate(main 2 x.pl:4) v ->j

$ cat x.pl
my @elements = qw/ 0 1 2 3 4 5 6 7 8 9 /;
...
13             <$> const(IV 1) s ->14
15          <$> const(PV "\n") s ->16
x.pl syntax OK

$ cat x.pl
my @elements = qw/ 0 1 2 3 4 5 6 7 8 9 /;
...
1f                   <0> padav[@elements:1,4] sR ->1g
1g                   <$> const(IV 1) s ->1h
1i                <$> const(PV "\n") s ->1j