ait := array(0 .. 15,[(0)=15,(1)=11,(2)=0,(3)=14,(4)=6,(5)=4,(6)=9,(7)=1,(8)=7
,(9)=13,(10)=10,(11)=2,(12)=8,(13)=3,(14)=5,(15)=12]);
