bin1 := (1,2)(3,5)(4,7)(6,10)(8,13)(9,15)(11,18)(12,17)(16,23)(20,25)(21,26)(22,
     24);