print
    $"x+abs
   ,$-x2x($.
  -abs),0,$/,
   for-+($.=
    pop||6)
     ..$.;