Help for this page

Select Code to Download

Select or download this

perl -e '$@=[[0,0112,0,0],[0,0101,0,0],[0,0120,0,0],[0,0110,0,0]];$[=2
+56/8-0x1D;print(chr(@{$_}[+($[+1-1+1)]))for(@{$@});'