sub record {
    ($g,$p)=@_;
    $w=3;$t=1;
    $wT=int($p/$w);
    $tT=$p-($wT*$w);
    $lT=$g-($wT+$tT);
    ($wT,$lT,$tT);
}

##</code><code>##

sub record {
    ($g,$p)=@_;$w=3;$t=1;
    $"=int($p/$w);$tT=$p-($"
    *$w);$;=$g-($"+$tT);
    ($",$;,$tT);
}

##</code><code>##

sub record {
    ($g,$p)=@_;
    @_=($"=int($p/(@_+1)),$/=$p-$"*(@_+1),$g-$"-$/);
    (shift,pop,pop)
}

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}