[~] $ perl -MO=Concise -e'print +(split//,shift)[$_[1]..$_[2]]'
h  <@> leave vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
g     <@> print vK ->h
3        <0> pushmark s ->4
f        <2> lslice lK/2 ->g
-           <1> ex-list lK ->8
4              <0> pushmark s ->5
-              <1> null lK/1 ->-
7                 <1> flop lK ->8
j                    <1> flip[t4] lK ->8
5                       <|> range(other->6)[t3] lK/1 ->i
-                          <1> ex-aelem sK/2 ->j
-                             <1> ex-rv2av sKR/1 ->-
i                                <$> aelemfast(*_) s/1 ->j
-                             <0> ex-const s ->-
-                          <1> ex-aelem sK/2 ->7
-                             <1> ex-rv2av sKR/1 ->-
6                                <$> aelemfast(*_) s/2 ->7
-                             <0> ex-const s ->-
-           <1> ex-list lK ->f
8              <0> pushmark s ->9
e              <@> split[t2] lK ->f
9                 </> pushre(//) s ->a
c                 <1> shift sK/1 ->d
b                    <1> rv2av[t1] sKRM/1 ->c
a                       <$> gv(*ARGV) s ->b
d                 <$> const(IV 0) s ->e