D1:=["130A1",
"130A2",
"220A1",
"220A2",
"306B3",
"306B4",
"310B1",
"310B2",
"336E4",
"342C3",
"342C4",
"429B2",
"438D1",
"438D2",
"574I1",
"609B2",
"660C1",
"660C2",
"663B2",
"759B2",
"770F1",
"770F2",
"816H3",
"840F2",
"858B1",
"858B2",
"870B1",
"870B2",
"870C1",
"870C2",
"910C1",
"910C2",
"966G2",
"966G4",
"990H3",
"990H4",
"994G1",
"994G2"];

D2:=[
"1122E2",
"1155E2",
"1170B1",
"1170B2",
"1170I1",
"1170I2",
"1230H1",
"1230H2",
"1254G2",
"1254H2",
"1260B1",
"1260B2",
"1260J3",
"1260J4",
"1302L2",
"1314A3",
"1314A4"
];

D3 := [
"1320H2",
"1482L1",
"1530D3",
"1530D4",
"1540C1",
"1540C2",
"1554N1",
"1610D1",
"1610D2",
"1638C1",
"1638C2",
"1680D4",
"1680H3",
"1680H5",
"1785O2",
"1785O4",
"1848J2",
"1914M1",
"1914M2",
"1974C1",
"1974C2",
"1974I1",
"1974I2",
"1980F3",
"1980F4",
"2070M1",
"2070M2",
"2090E1",
"2090E2",
"2130F1",
"2130F2",
"2184M2",
"2210B1",
"2210B2",
"2310G1",
"2310G2",
"2310G4",
"2310G5",
"2310N2",
"2370I1",
"2370I2",
"2394A1",
"2394A2",
"2394B1",
"2394B2",
"2394N3",
"2394N4",
"2394N5",
"2394N6",
"2442I1",
"2442I2",
"2478B1",
"2478B2",
"2574X3",
"2574X4",
"2604F1",
"2604F2",
"2640F4",
"2660H1",
"2660H2",
"2706G1",
"2706G2",
"2730X2",
"2760F2",
"2838E2",
"2870D1",
"2870D2",
"3030M1",
"3030M2",
"3045E2",
"3045E3",
"3094I1",
"3094I2",
"3108I1",
"3108I2",
"3120Z4",
"3135E2",
"3190C1",
"3190C2",
"3255D2",
"3290E1",
"3290E2",
"3330G3",
"3330G4",
"3366E3",
"3366E4",
"3420C3",
"3420C4",
"3480S2",
"3542O1",
"3542O2",
"3570J1",
"3570J2",
"3696G3",
"3870D1",
"3870D2",
"3870M1",
"3870M2",
"3906U3",
"3906U4",
"3990T2",
"4060C1",
"4060C2",
"4074L1",
"4074L2",
"4080EE4",
"4080EE5",
"4080EE7",
"4230X1",
"4230X2",
"4290BB1",
"4290BB2",
"4290BB4",
"4290BB5",
"4305M2",
"4318B1",
"4318B2",
"4368K4",
"4420A1",
"4420A2",
"4560D4",
"4641B2",
"4730K1",
"4770K3",
"4770K4",
"4785A2",
"4794E2",
"4794E4",
"4830KK1",
"4830KK2", 
"4862C1",
"4862C2",
"4930G1",
"4930G2",
"4935I2",
"5115E2",
"5124C1",
"5124C2",
"5148E3",
"5148E4"
];

SetColumns(0);

Attach("gens.m");

for E in D3 do
   printf "\n------------------------------- %o -----------------------------------\n", E;
   Rabi(EC(E));
end for;