4 0, 1, 2, 3, 4, 5, 6, 7,
5 8, 9,10,11,12,13,14,15,
6 16,17,18,19,20,21,22,23,
7 24,25,26,27,28,29,30,31
10 32,33,34,35,36,37,38,39,
11 40,41,42,43,44,45,46,47,
12 48,49,50,51,52,53,54,55,
13 56,57,58,59,60,61,62,63
20 local(*a,*b,*t,$n,$m)=@_;
33 &PERM_OP(*R,*L,*T,4,0x0f0f0f0f);
34 &PERM_OP(*L,*R,*T,16,0x0000ffff);
35 &PERM_OP(*R,*L,*T,2,0x33333333);
36 &PERM_OP(*L,*R,*T,8,0x00ff00ff);
37 &PERM_OP(*R,*L,*T,1,0x55555555);
40 &PERM_OP(*R,*L,*T,1,0x55555555);
41 &PERM_OP(*L,*R,*T,8,0x00ff00ff);
42 &PERM_OP(*R,*L,*T,2,0x33333333);
43 &PERM_OP(*L,*R,*T,16,0x0000ffff);
44 &PERM_OP(*R,*L,*T,4,0x0f0f0f0f);