intrinsic Digraph(A::AlgMatElt) 
{Make a dot-readable digraph from A.}
   print "digraph G {";
      for i in [1..Nrows(A)] do 
         for j in [1..Ncols(A)] do
            if A[i,j] ne 0 then
               for k in [1..A[i,j]] do 
                  printf "%o -> %o;\n", i, j;
               end for;
/*
               printf "%o -> %o", i, j;
               if A[i,j] ne 1 then
                  printf " [label=\"%o\"]", A[i,j];
               end if;
               printf ";\n";
*/
            end if;
         end for;
      end for;
   print "}";
end intrinsic;

intrinsic PsfragLabels(X::ModSS)
{psfrag labels to go from 1,..,#ss points to the actual j invariants.}
   S := SupersingularPoints(X);
   for i in [1..#S] do 
      j := S[i][1];
      printf "\\\\psfrag{%o}{\\\\small$%o$}\n", i, j;
   end for;
end intrinsic;
