Select Code to Download

>perl -MO=Concise,x -e"sub x { shift }
main::x:
...
4        <1> shift sK/1 ->5
3           <1> rv2av[t2] lKRM/1 ->4
2              <#> gv[*_] s ->3