gap> START_TEST("HAP library");
gap> gamma:=HAP_CongruenceSubgroupGamma0(39);;
gap> p:=2;;N:=1;;h:=HeckeOperatorWeight2(gamma,p,N);;
gap> T2:=HomomorphismAsMatrix(h);
[ [ -2, -2, 2, 2, 1, 2, 0, 0, 0 ], [ -2, 0, 1, 2, -2, 2, 2, 2, -2 ], 
  [ -2, -1, 2, 2, -1, 2, 1, 1, -1 ], [ -2, -1, 2, 2, 1, 1, 0, 0, 0 ], 
  [ -1, 0, 0, 2, -3, 2, 3, 3, -3 ], [ 0, 1, 1, 1, -1, 0, 1, 1, -1 ], 
  [ -1, 1, 1, -1, 0, 1, 2, -1, 1 ], [ -1, -1, 0, 2, -3, 2, 1, 4, -1 ], 
  [ 0, 1, 0, -1, -2, 1, 1, 1, 2 ] ]
gap> STOP_TEST( "tst.tst", 1000 );

