Select Code to Download

Select or download this

# 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

Select or download this

perl -MO=Concise -e'print for map { $_->[0] } map { [ $_ ] } 1'
t  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
...
n                       <#> gvsv[*_] s ->o
p                 <0> unstack v ->q
-e syntax OK