if(my@t=unpack"C*",do{local($/);<DATA>}) {
    my$t=0;
    {
        $t[0]==126 ?
        ((t *STDERR,chr$t),last):
        ($t+=shift@t)and redo
    }
    c $0;
    $d=$t[$#t];
    $c+=$l[$_]for 0..$d
} else {
    $c+=$l[0];
    $d=0
}