C:\>perl -MO=Concise -E"print '1' ~~ [0..9]"
b  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 46 -e:1) v:%,{ ->3
a     <@> print vK ->b
3        <0> pushmark s ->4
9        <2> smartmatch sK/2 ->a
4           <$> const[PV "1"] s ->5
8           <@> anonlist sK*/1 ->9
5              <0> pushmark s ->6
7              <1> rv2av lKP/1 ->8
6                 <$> const[AV ] s ->7