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