$ perl -MO=Concise -e'for ((),$x..$y) {}'
...
8        <{> enteriter(next->a last->d redo->9) lK ->b
-           <0> ex-pushmark s ->3
-           <1> ex-list lKM ->7
3              <0> pushmark sM ->4
-              <0> stub lPM ->4
-              <1> null lKM/1 ->-
6                 <1> flop lKM ->7
g                    <1> flip[t4] lK ->7
4                       <|> range(other->5)[t3] lK/1 ->f
-                          <1> ex-rv2sv sK/1 ->g
f                             <#> gvsv[*x] s ->g
-                          <1> ex-rv2sv sK/1 ->6
5                             <#> gvsv[*y] s ->6
7           <#> gv[*_] s ->8
...