; $.= $ARGV [$-*$-] ||6;print $"x(abs($_) ),$-x(($.-abs ($_))*(2)+1 ),($/)for ((-($.) ..($. ))) ;