bin1 := (1,3,5,9,15,8,13,19,27)(2,4,7,12,18,25,23,30,26)(6,10,16,22,29,32,35,33,
     36)(11,17,24,21,28,31,34,14,20);