// Cardinal order-2 balanced multiscaling filters

// This is a Singular file. In Singular type <"sfile";

// This file reads the file "eqs", computes the Grobner basis,
// and writes it to the file "gb"


ring R = 0, (g(0..5)), lp;       // lp; // dp;

string s = "ideal k = "+read("eqs");

execute(s);

k;

option(redSB);

ideal j = std(k); j;

write(":w gb",j);
write(":a gb",";");