--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---