

intrinsic tex_qexp(start::RngIntElt, stop::RngIntElt) 
{}

   M := ModularSymbols(11,2,+1);
   D := Decomposition(M,3)[2];
   f := qEigenform(D,stop+1);
   for n in [start..stop] do 
      an := Coefficient(f,n);
      if n eq 1 then
         printf "q";
      elif an eq 1 then
         printf " + q^{%o}", n;
      elif an gt 1 then    
         printf " + %oq^{%o}", an, n;
      elif an eq -1 then
         printf " - q^{%o}", n;
      elif an lt -1 then
         printf " - %oq^{%o}", -an, n;
      end if;
   end for;
   printf "\n";

end intrinsic;


