$ perl -f -MO=Concise -e " my$f=[ 1, [ 2, [ 3 ] ] ]; my$g={ a => { b=>
+ { c=> {}, }, }, }; "
s  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
d     <2> sassign vKS/2 ->e
b        <@> anonlist sK*/1 ->c
3           <0> pushmark s ->4
4           <$> const[IV 1] s ->5
a           <@> anonlist sK*/1 ->b
5              <0> pushmark s ->6
6              <$> const[IV 2] s ->7
9              <@> anonlist sK*/1 ->a
7                 <0> pushmark s ->8
8                 <$> const[IV 3] s ->9
c        <0> padsv[$f:1,3] sRM*/LVINTRO ->d
e     <;> nextstate(main 2 -e:1) v:{ ->f
r     <2> sassign vKS/2 ->s
p        <@> anonhash sK*/1 ->q
f           <0> pushmark s ->g
g           <$> const[PV "a"] s/BARE ->h
o           <@> anonhash sK*/1 ->p
h              <0> pushmark s ->i
i              <$> const[PV "b"] s/BARE ->j
n              <@> anonhash sK*/1 ->o
j                 <0> pushmark s ->k
k                 <$> const[PV "c"] s/BARE ->l
m                 <@> anonhash sK* ->n
l                    <0> pushmark s ->m
q        <0> padsv[$g:2,3] sRM*/LVINTRO ->r
-e syntax OK
[download]