local z, r, result;

result := rec();

result.comment := "L2(103) as 104 x 104 monomial matrices over Z(z51)\n";

# Change the value of r to any number between 1 and 25
# to get the complete set of inequivalent faithful irreducible 104-dimensional
# representations of L2(103)
r := 1;
z := E(51)^r;

result.symmetricforms := [ ]; 
result.antisymmetricforms := [ ]; 
result.hermitianforms := [ IdentityMat(104) ];
result.centralizeralgebra := [ IdentityMat(104) ];

result.generators := [
DiagonalMat([z,z^50,z^32,z^33,z^4,z^10,z^33,z^49,z^42,z^5,z^7,z^35,
  z^14,z^48,z^43,z^48,z^46,z^41,z^19,z^26,1,z^9,z^8,z^4,z^17,z^30,
  z^14,z,z^25,z^44,z^26,z^31,z^40,z^21,z^8,z^20,z^38,z^28,z^22,z^39,
  z^19,z^45,z^6,z^21,z^7,z^44,z^47,z^47,z^37,z^11,z^3,z^24,z^28,z^29,
  z^23,z^27,z^43,z^12,z^34,z^31,z^16,z^22,z^5,z^32,z^25,z^2,1,z^17,
  z^35,z^11,z^2,z^13,z^23,z^15,z^29,z^37,z^39,z^49,z^13,z^42,z^45,
  z^24,z^12,z^36,z^16,z^17,z^15,z^34,z^9,z^20,z^40,z^36,z^6,z^41,z^30,
  z^27,z^18,z^3,z^10,z^50,z^38,z^46,z^18,z^34]) *
PermutationMat(
(  1,100)(  2, 28)(  3, 41)(  4, 97)(  5, 47)(  6, 18)(  7,103)(  8, 71)
(  9, 22)( 10,102)( 11, 46)( 12, 85)( 13, 76)( 14, 51)( 15, 23)( 16, 98)
( 17, 63)( 19, 64)( 20, 65)( 21, 67)( 24, 48)( 25, 59)( 26, 44)( 27, 49)
( 29, 31)( 30, 45)( 32, 90)( 33, 70)( 34, 95)( 35, 57)( 36, 60)( 37, 79)
( 38, 73)( 39, 54)( 40, 58)( 42, 93)( 43, 81)( 50, 91)( 52, 96)( 53, 55)
( 56, 82)( 61, 69)( 62, 75)( 66, 78)( 68, 88)( 72,101)( 74, 84)( 77, 83)
( 80, 89)( 86,104)( 87, 92)( 94, 99), 104)
,
DiagonalMat([z^26,z^12,z^20,z^43,z^24,z^6,z^7,z^29,z^35,z^7,z^23,z^16,
  z^30,z^32,z^9,z^39,z^22,z^17,z^22,z^20,z^15,z^44,1,z^25,z^34,z^33,
  z^29,z^42,z^4,z^39,z^26,z^50,z^18,1,z^5,z^14,z^46,z^33,z^45,z^12,
  z^2,z^47,z^13,z^44,z^19,z^31,z^46,z^32,z^18,z^21,z^21,z^11,z^36,
  z^28,z^49,z^2,z^3,z^48,z,z^17,z^37,z^8,z^5,z^41,z^47,z^30,z^6,z^50,
  z^27,z^25,z^42,z^9,z^36,z^27,z^38,z^48,z^40,z^3,z^11,z^13,z^23,z^38,
  z^16,z^19,z^49,z^37,z^10,z^41,z^40,z^40,z^8,z^34,z^45,z^14,z^10,
  z^31,z^15,z^4,z,z^43,z^28,z^35,z^24,z^11]) *
PermutationMat(
(  1, 21, 87)(  2, 41, 61)(  3, 17, 72)(  4, 58, 52)(  5, 38, 93)(  6, 49, 69)
(  7, 44, 34)(  8, 43, 15)(  9, 33, 85)( 10, 63, 30)( 11, 14, 65)( 12, 56, 26)
( 13, 42, 24)( 16, 94, 55)( 19, 28, 75)( 20, 48, 32)( 22, 40, 37)( 23, 89,104)
( 25, 77,101)( 27, 46, 71)( 29, 50, 31)( 35, 82, 91)( 36, 53, 59)( 39, 64, 83)
( 45, 96, 99)( 47,100, 80)( 51, 57, 74)( 54, 98, 84)( 60, 81, 79)( 62, 90, 78)
( 66,103, 76)( 67,102, 95)( 68, 97, 86)( 70, 88, 73), 104)];

return result;