cutting off odd faces of crystal:

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