sub p {
# my($c,$s,@x)=@_;my@a=($s)x(-@x+abs$c);$c>0?(@x,@a):(@a,@x)
($*,$^,@#)=@_;@*=($^)x(-@#+abs$*);$*>0?(@#,@*):(@*,@#)
#234567890123456789012345678901234567890123456789012345678
}