sub p{($a,$b,@_)=@_;@*=($b)x(-@_+abs$a);$a>0?(@_,@*):(@*,@_)}