#!/usr/bin/perl $_=q^use PDL;use PDLKGraphicsKTriD;H _{map ord()-80,&_K(Q)}H _K{split//, Q}H K{Q->xchg(0,1)}$}=pdl(__(8665))*ones(28,3);H __{&_K(join(0,map(1x$_, &_K)))}$_=pdl ITPRRRPJZPRVJSSRTPTRPNLXMVM)],I'VNNPRZMDVMVJJP\PNNNPJ\JPVD ')],[0];for $p(1..27){O)+=O-1)}line3d(K($_),K($}))^;for $r(qw.sub [_( J :: L PP N $_->slice($p P shift.){$l=chr(72+$c++);s/$l/$r/g}s/\n//g;eval;