--BEGIN PERL STYLE GEEK CODE BLOCK--
v1017053040++;
use vars qw/It(=4?)! Os1 ;0 B1+ L1+ C2 P0+ N! R0~ main-!sub/;
@S=('1.1(0)',,.1,,['1(0?).1',,(1)x3],1.1,
[('1?.1?')x3,1.1],[('1?.1?')x3],(1.1)x4,('1?.1?')x2,
(1.1)x2,1.1,,'1.1 1.1',1.1,[0.1,1.1],(1.1)x4);
%V=(l=>en,c=>2,a=>1,p=>{s=>-1,h=>0,a=>1},r=>0,d=>2);
%H=(s=>1,w=>2,T=>+0,d=>+0,a=>0);
---END PERL STYLE GEEK CODE BLOCK---