sub p {
my($a,$z,@x)=@_;
my @n=($z)x(abs @x-abs $a);
@n=abs $a>@x?$a<0?(@n,@x):(@x,@n):@x;
}