Select Code to Download

    % perl blocks x

                                                               
if(pop){undef$/;open$x,$0;$_=<$x>;s/\S/#/g;die$_}              
...
                                    ")} 0..5