local z, r, result;

result := rec();

result.comment := "L2(181) as 182 x 182 monomial matrices over Z(z90)\n";

# Change the value of r to any number between 1 and 44
# to get the complete set of inequivalent faithful irreducible 182-dimensional
# representations of L2(181)
r := 1;
z := E(90)^r;

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

result.generators := [
DiagonalMat([z^6,z^78,z^9,z^42,z^31,z^39,z^22,z^18,z^58,z^14,z^24,
  z^35,z^29,z^51,z^70,z^16,z^72,z^16,z^10,z^84,z^36,z^23,z^80,z^48,
  z^60,z^86,z^47,1,z^17,z^71,z^50,z^19,z^21,-1,z^26,z^28,z^56,z^19,
  z^79,z^85,z^67,z^53,z^26,z^33,z^8,z^7,z^5,z^30,z^34,z^43,z^83,z^75,
  z^29,z^25,z^76,z^82,z^39,z^34,z^25,z^13,z^52,z^28,z^13,z^65,z^80,
  z^18,z^89,z^49,z^79,z^58,z^71,z^72,z^57,z^27,z^52,z^73,z^15,z^77,
  z^32,z^41,z^5,z^40,z^30,z^74,z^11,z^68,z^46,z^20,z^49,z^63,z^61,
  z^47,z^67,z^36,z^75,z^3,z^64,z^48,z^85,z^9,z^32,z^82,z^3,z^11,z^15,
  z^57,z^50,z^88,z,z^46,z^53,z^12,z^2,z^87,z^61,z^62,z^62,z^86,z^78,
  z^14,z^27,z^44,z^37,z^66,z^12,z^73,z^70,z^88,z^63,z^60,1,z^20,z^55,
  z^37,z^83,z^31,z^4,z^81,z^22,z^54,z^66,z^23,z^38,z^43,z^8,z^41,z^4,
  z^74,z^51,z^56,z^44,z^33,z^76,z^35,z^38,z^54,-1,z^55,z^21,z^89,z^69,
  z^10,z^77,z^24,z^65,z^2,z^68,z^84,z^42,z^7,z^5,z^6,z^40,z^81,z^64,
  z^87,z^59,z^17,z^69,z,z^59,z^85]) *
PermutationMat(
(  1, 20)(  2,112)(  3,174)(  4, 24)(  5,177)(  6, 14)(  7,167)(  8, 17)
(  9, 79)( 10, 55)( 11,124)( 12,158)( 13,115)( 15, 88)( 16,148)( 18, 84)
( 19, 23)( 21,140)( 22, 93)( 25, 83)( 26,137)( 27, 50)( 28,131)( 29,126)
( 30, 32)( 31, 82)( 33,179)( 35, 97)( 36,116)( 37, 58)( 38, 71)( 39, 85)
( 40, 81)( 41,142)( 42,134)( 43,175)( 44, 73)( 45,102)( 46,135)( 47, 99)
( 48,130)( 49,150)( 51,170)( 52,105)( 53, 91)( 54,165)( 56,145)( 57,149)
( 59, 64)( 60,163)( 61,143)( 62,117)( 63, 78)( 65,162)( 66, 72)( 67,180)
( 68, 80)( 69,104)( 70,101)( 74,129)( 75,155)( 76,178)( 77, 95)( 86,139)
( 87,122)( 89,146)( 90,121)( 92,144)( 94,156)( 96,114)( 98,169)(100,138)
(103,176)(106,152)(107,173)(108,166)(109,160)(110,151)(111,123)(113,128)
(118,147)(119,125)(120,153)(127,132)(133,154)(136,181)(141,164)(159,161)
(168,172)(171,182), 182)
,
DiagonalMat([z^3,z^84,z^56,z^14,z^66,z^88,z^56,z^75,z^6,z^39,z^28,
  z^36,z^19,z^15,z^55,z^11,z^21,z^32,z^26,z^48,z^67,z^13,z^69,z^13,
  z^7,z^81,z^33,z^20,z^77,-1,z^57,z^83,z^44,z^87,z^14,z^68,z^47,z^16,
  z^18,z^42,z^23,z^25,z^53,z^16,z^76,z^82,z^64,z^50,z^23,z^30,z^5,
  z^4,z^2,z^27,z^31,z^40,z^80,z^72,z^26,z^22,z^73,z^79,z^36,z^31,z^22,
  z^10,z^49,z^25,z^10,z^62,z^77,z^15,z^86,z^46,z^76,z^55,z^68,z^69,
  z^54,z^24,z^49,z^70,z^12,z^74,z^29,z^38,z^2,z^37,z^27,z^71,z^8,z^65,
  z^43,z^17,z^46,z^60,z^58,z^44,z^64,z^33,z^72,1,z^61,-1,z^82,z^6,
  z^29,z^79,1,z^8,z^12,z^54,z^47,z^85,z^88,z^43,z^50,z^9,z^89,z^84,
  z^58,z^59,z^59,z^83,z^75,z^11,z^24,z^41,z^34,z^63,z^9,z^70,z^67,
  z^85,z^60,z^57,z^87,z^17,z^52,z^34,z^80,z^28,z,z^78,z^19,z^51,z^63,
  z^20,z^35,z^40,z^5,z^38,z,z^71,z^48,z^53,z^41,z^30,z^73,z^32,z^35,
  z^51,z^42,z^52,z^18,z^86,z^66,z^7,z^74,z^21,z^62,z^89,z^65,z^81,
  z^39,z^4,z^2,z^3,z^37,z^78,z^61,z^88]) *
PermutationMat(
(  1, 77,145)(  2, 74,117)(  3,119,161)(  4, 23, 25)(  5,  6, 59)(  7,115, 12)
(  8, 20, 31)(  9,150, 33)( 10, 91,116)( 11, 52, 97)( 13,110,147)( 14,100, 40)
( 15, 68, 69)( 16,128, 86)( 17, 75,124)( 18,169, 84)( 19, 98,148)( 21,142,114)
( 22, 63,157)( 24, 50, 37)( 26,176,151)( 27,174,167)( 28,165,164)( 29, 81, 79)
( 30,133, 36)( 32, 39,108)( 34,154, 60)( 35, 42,146)( 38,121, 44)( 41,104, 65)
( 43, 54, 66)( 45,175,173)( 46, 90, 89)( 47, 87, 80)( 48,103, 78)( 49, 51, 70)
( 53,140,112)( 55,106,156)( 56,170, 85)( 57,130,179)( 58,168,126)( 61,107,144)
( 62,139, 67)( 64,138,163)( 71, 93,135)( 72,137,180)( 73,171,160)( 76,143,129)
( 82,152,101)( 83,181, 94)( 88,120,123)( 92,149,141)( 95, 99,132)(102,172,153)
(105,162,113)(109,177,182)(111,178,125)(118,136,127)(122,155,159)(131,134,166), 182)];

return result;