ring Rdp = 0, (g(0..7),h(0..7),A), dp;
string s = "ideal k = "+read("eqs");
execute(s); k;
option(redSB);
ideal j = std(k); j;
degree(j);
write(":w gb.dp",j);
write(":a gb.dp",";");

ring Rlp = 0, (g(0..7),h(0..7),A), lp;
ideal i = fglm(Rdp,j); i;
degree(i);
write(":w gb.lp",i);
write(":a gb.lp",";");