genus(Divisor) -- computes the genus of a Divisor

i1 : R = ZZ/101[x,y,z,w];

i2 : Q = quadricSurface(R);

i3 : D = divisor({3,4},Q);

i4 : genus D

o4 = 6

o4 : QQ