# l  <|> mapwhile(other->m)[t26] lK
# m      <#> gv[*_] s
# n      <1> rv2sv sKM/DREFAV,1
# o      <1> rv2av[t4] sKR/1
# p      <$> const[IV 0] s
# q      <2> aelem sK/2

##</code><code>##

perl -MO=Concise -e'print for map { $_->[0] } map { [ $_ ] } 1'
t  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 3 -e:1) v ->3
3     <;> nextstate(main 3 -e:1) v ->4
s     <2> leaveloop vK/2 ->t
l        <{> enteriter(next->p last->s redo->m) lK/8 ->q
-           <0> ex-pushmark s ->4
-           <1> ex-list lKM ->k
4              <0> pushmark sM ->5
e              <|> mapwhile(other->f)[t7] lKM/1 ->k
d                 <@> mapstart lK*/2 ->e
5                    <0> pushmark s ->6
-                    <1> null lK/1 ->6
-                       <1> null lK/1 ->e
-                          <@> scope lK ->e
-                             <0> ex-nextstate v ->f
j                             <2> aelem sK/2 ->-
h                                <1> rv2av[t3] sKR/1 ->i
g                                   <1> rv2sv sKM/DREFAV,1 ->h
f                                      <#> gv[*_] s ->g
i                                <$> const[IV 0] s ->j
9                    <|> mapwhile(other->a)[t5] lKM/1 ->d
8                       <@> mapstart lK*/2 ->9
6                          <0> pushmark s ->7
-                          <1> null lK/1 ->7
-                             <1> null lK/1 ->9
-                                <@> scope lK ->9
-                                   <0> ex-nextstate v ->a
c                                   <@> anonlist sK*/1 ->-
a                                      <0> pushmark s ->b
-                                      <1> ex-rv2sv sK/1 ->c
b                                         <#> gvsv[*_] s ->c
7                          <$> const[IV 1] sM ->8
k           <#> gv[*_] s ->l
-        <1> null vK/1 ->s
r           <|> and(other->m) vK/1 ->s
q              <0> iter s ->r
-              <@> lineseq vK ->-
o                 <@> print vK ->p
m                    <0> pushmark s ->n
-                    <1> ex-rv2sv sK/1 ->o
n                       <#> gvsv[*_] s ->o
p                 <0> unstack v ->q
-e syntax OK