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