#!/usr/bin/perl
use strict; use PDL;use PDL::NiceSlice;use PDL::Graphics::TriD;sub
_{map(ord()-80,&_::(shift))}sub _::{split//,shift}$}=pdl(__(8665))
*ones(28,3);{$_=pdl[_('TPRRRPJZPRVJSSRTPTRPNLXPPVPP')],
[_('VNNPRZPPDVPPVJJP\PNNNPJ\JPVD')],[0];for my $pdl(1..27){$_($pdl)
+=$_($pdl-1)}line3d(::($_),::($}));}sub __{&_::(join('0',map(1x$_,
&_::)))}sub ::{{{{}}}shift->xchg(0,1)}