#############################################################################
##
#F                             CHEVIE library
##
#Y  Copyright 1992--1993,  Lehrstuhl D f"ur Mathematik,    RWTH Aachen,   and
#Y                         IWR   der   Universit"at    Heidelberg,   Germany.
##
# Orthogonalitaet 
#############################################################################
#                                                                           #
#   Die Greenfunktionen der F_4(q) in Charakteristik 2                      #
#                                                                           #
#############################################################################
##
#A {\sc T. Shoji}, On the Green polynomials of a Chevalley group of type $F_4$
#           Comm. Algebra 10 (1982), 505-543
##
lprint(`**************************************************************************`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`*                    Green Functions of F_4(q), (6,q) = 1                *`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`**************************************************************************`);

# Wertetafel

`F4n23green` := array(-2..25, -1..26,[

 [`F_4(q)`, `F4005green`, q^24*(q-1)^4*(q+1)^4*(q^2+q+1)^2*(q^2+1)^2
  *(q^2-q+1)^2*(q^4+1)*(q^4-q^2+1), 25, 25, 26, 26],

 [ ],

 [`classlength`, 1, 1, (q^6-1)*(q^4+1)*(q^6+1),                
  q^3*(q^3+1)*(q^4+1)*(q^12-1)/2,       
  q^3*(q^3-1)*(q^4+1)*(q^12-1)/2,     
  q^4*(q^4+q^2+1)*(q^8-1)*(q^12-1), 
  q^7*(q^3+1)*(q^8-1)*(q^12-1)/2, 
  q^7*(q^3-1)*(q^8-1)*(q^12-1)/2,           
  q^10*(q^8-1)*(q^12-1),                   
  q^8*(q^6-1)*(q^8-1)*(q^12-1),           
  q^10*(q^6-1)*(q^8-1)*(q^12-1),         
  q^12*(q^4+q^2+1)*(q^8-1)*(q^12-1)/2,  
  q^12*(q^2-1)*(q^6-1)*(q^4+1)*(q^12-1)/2,  
  q^12*(q^6-1)*(q^8-1)*(q^12-1)/2,        
  q^12*(q^6-1)*(q^8-1)*(q^12-1)/2,       
  q^12*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1)/24, 
  q^12*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1)/4,
  q^12*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1)/4,  
  q^12*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1)/8, 
  q^12*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1)/3,
  q^16*(q^6-1)*(q^8-1)*(q^12-1),         
  q^16*(q^6-1)*(q^8-1)*(q^12-1),        
  q^16*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1)/2, 
  q^16*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1)/2,
  q^18*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1)/2,  
  q^18*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1)/2, 
  q^20*(q^2-1)*(q^6-1)*(q^8-1)*(q^12-1) ],

 [[`\\emptyset`], (q+1)^4*(1-q^2+q^4)*(1-q+q^2)^2*(1+q+q^2)^2*(q^2+1)^2*(1+q^4),
  (q+1)^4*(1-q^2+q^4)*(1-q+q^2)^2*(1+q+q^2)^2*(q^2+1)^2*(1+q^4),
  (1+2*q^4)*(1-q+q^2)*(1+q+q^2)*(q^2+1)^2*(q+1)^4,
  6*q^13+23*q^12+50*q^11+79*q^10+96*q^9+95*q^8+78*q^7+56*q^6+38*q^5+25*q^4
  +16*q^3+9*q^2+4*q+1,
  2*q^13+7*q^12+14*q^11+23*q^10+32*q^9+39*q^8+42*q^7+40*q^6+34*q^5+25*q^4
  +16*q^3+9*q^2+4*q+1,
  9*q^10+32*q^9+52*q^8+56*q^7+48*q^6+36*q^5+25*q^4+16*q^3+9*q^2+4*q+1,
  (q+1)*(1+q+q^2)*(9*q^6+7*q^5+5*q^4+5*q^3+3*q^2+2*q+1),
  (1-q+q^2)*(7*q^5+10*q^4+9*q^3+6*q^2+3*q+1)*(q+1)^2,
  (1-q+q^2)*(1+q+q^2)*(8*q^3+5*q^2+2*q+1)*(q+1)^2,
  4*q^7+15*q^6+24*q^5+23*q^4+16*q^3+9*q^2+4*q+1,
  (q+1)*(6*q^5+14*q^4+16*q^3+8*q^2+3*q+1),
  (13*q^4+14*q^3+6*q^2+2*q+1)*(q+1)^2,
  (q+1)*(q^2+1)*(5*q^3+3*q^2+3*q+1), (q+1)*(2*q+1)*(10*q^3+8*q^2+q+1),
  (q+1)*(2*q+1)*(6*q^3+4*q^2+q+1),
  54*q^4+48*q^3+15*q^2+4*q+1, (2*q+1)*(q+1)*(2*q^2+q+1),
  (2*q+1)*(10*q^3+7*q^2+2*q+1), 14*q^4+16*q^3+7*q^2+4*q+1,
  (q+1)*(6*q^3+6*q^2+3*q+1), (q+1)*(8*q^2+3*q+1), (q+1)*(8*q^2+3*q+1),
  11*q^2+4*q+1, 7*q^2+4*q+1, 6*q+1, 2*q+1, 1],
       
 [[`4A_1`], (q-1)^4*(1-q^2+q^4)*(1-q+q^2)^2*(1+q+q^2)^2*(q^2+1)^2*(1+q^4),
   (q-1)^4*(1-q^2+q^4)*(1-q+q^2)^2*(1+q+q^2)^2*(q^2+1)^2*(1+q^4),
   (1+2*q^4)*(1-q+q^2)*(1+q+q^2)*(q^2+1)^2*(q-1)^4,
  -2*q^13+7*q^12-14*q^11+23*q^10-32*q^9+39*q^8-42*q^7+40*q^6-34*q^5+25*q^4-16*q^3+9*q^2-4*q+1,
  -6*q^13+23*q^12-50*q^11+79*q^10-96*q^9+95*q^8-78*q^7+56*q^6-38*q^5+25*q^4-16*q^3+9*q^2-4*q+1,
  9*q^10-32*q^9+52*q^8-56*q^7+48*q^6-36*q^5+25*q^4-16*q^3+9*q^2-4*q+1,
   -(1+q+q^2)*(7*q^5-10*q^4+9*q^3-6*q^2+3*q-1)*(q-1)^2,
  -(q-1)*(1-q+q^2)*(9*q^6-7*q^5+5*q^4-5*q^3+3*q^2-2*q+1),
  -(1+q+q^2)*(1-q+q^2)*(8*q^3-5*q^2+2*q-1)*(q-1)^2,
  -4*q^7+15*q^6-24*q^5+23*q^4-16*q^3+9*q^2-4*q+1,
  (q-1)*(6*q^5-14*q^4+16*q^3-8*q^2+3*q-1), (13*q^4-14*q^3+6*q^2-2*q+1)*(q-1)^2,
  (q-1)*(q^2+1)*(5*q^3-3*q^2+3*q-1),-(-1+2*q)*(q-1)*(10*q^3-8*q^2+q-1),
   -(-1+2*q)*(q-1)*(6*q^3-4*q^2+q-1), 
  (12*q^4-(8+8)*q^3+9*q^2-4*q+1)  + (9*q^4-8*q^3+2*q^2) *3 + (6*q^4-4*q^3) *2
  + q^4 *3,
  (12*q^4-(8+8)*q^3+9*q^2-4*q+1)  - (9*q^4-8*q^3+2*q^2)  + q^4,
  (12*q^4-(8+8)*q^3+9*q^2-4*q+1)  + (9*q^4-8*q^3+2*q^2)  - q^4,
  (12*q^4-(8+8)*q^3+9*q^2-4*q+1)-(9*q^4-8*q^3+2*q^2) + (6*q^4-4*q^3) *2- q^4,
  (12*q^4-(8+8)*q^3+9*q^2-4*q+1) - (6*q^4-4*q^3),
  -(q-1)*(8*q^2-3*q+1),  -(q-1)*(8*q^2-3*q+1),  11*q^2-4*q+1, 
  7*q^2-4*q+1, -2*q+1, -6*q+1, 1],
       
 [[`2A_1`], (q-1)^2*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (q-1)^2*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (1+2*q^4)*(1-q+q^2)*(1+q+q^2)*(q-1)^2*(q+1)^2*(q^2+1)^2,
   2*q^13-q^12+2*q^11-5*q^10+1-5*q^8+2*q^7+2*q^5+q^4+q^2,
   -2*q^13-q^12-2*q^11-5*q^10+1-5*q^8-2*q^7-2*q^5+q^4+q^2,
   q^10+1-4*q^8+q^4+q^2,
  (q-1)*(1+q+q^2)*(q^6-3*q^5+q^4-q^3-q^2-1),
  -(q+1)*(1-q+q^2)*(q^6+3*q^5+q^4+q^3-q^2-1),
  -(q+1)*(q-1)*(1+3*q^2)*(1-q+q^2)*(1+q+q^2),
  1-q^6-q^4+q^2, -(q+1)*(q-1)*(2*q^4+4*q^2+1),
  5*q^6+1-q^4+3*q^2, -(3*q^2-1)*(q^2+1)^2, 1-2*q^4+5*q^2,
  -(1+3*q^2)*(2*q^2-1),
  (-4*q^4+q^2+1)  + (q^4+2*q^2) *3 + (-2*q^4) *2 + q^4 *3,
  (-4*q^4+q^2+1)  - (q^4+2*q^2)   + q^4,
  (-4*q^4+q^2+1)  + (q^4+2*q^2)  - q^4,
  (-4*q^4+q^2+1)  - (q^4+2*q^2)+ (-2*q^4) *2 - q^4,
  (-4*q^4+q^2+1)- (-2*q^4),
  1+3*q^2, 1+3*q^2, 1+3*q^2, -(q-1)*(q+1), 2*q+1, -2*q+1, 1],
      
 [[`D_4(a_1)`], (q-1)^4*(q+1)^4*(1-q^2+q^4)*(1-q+q^2)^2*(1+q+q^2)^2*(1+q^4),
  (q-1)^4*(q+1)^4*(1-q^2+q^4)*(1-q+q^2)^2*(1+q+q^2)^2*(1+q^4),
  (1+2*q^4)*(1-q+q^2)*(1+q+q^2)*(q-1)^4*(q+1)^4, 
   2*q^13-q^12-6*q^11-q^10+8*q^9+7*q^8-6*q^7-8*q^6+2*q^5+5*q^4+1-3*q^2,
   -2*q^13-q^12+6*q^11-q^10-8*q^9+7*q^8+6*q^7-8*q^6-2*q^5+5*q^4+1-3*q^2,
   -3*q^10+1+8*q^8-8*q^6+5*q^4-3*q^2,
  (q+1)*(1+q+q^2)*(q^4+q^3-2*q^2+1)*(q-1)^2,
  -(q-1)*(1-q+q^2)*(q^4-q^3-2*q^2+1)*(q+1)^2,
  (1-q+q^2)*(1+q+q^2)*(q-1)^2*(q+1)^2,
  1-q^6+3*q^4-3*q^2,
  (q-1)*(q+1)*(2*q^4-1),  (q^2+1)*(q-1)^2*(q+1)^2,
  -(q+1)*(q-1)*(7*q^4-4*q^2+1), -(q+1)*(q-1)*(2*q^2+1),
  (q-1)*(q+1)*(2*q^2-1),
  (4*q^4-3*q^2+1)  + (-3*q^4+2*q^2) *3 + (2*q^4) *2 + q^4 *3,
  (4*q^4-3*q^2+1)  - (-3*q^4+2*q^2)   + q^4,
  (4*q^4-3*q^2+1)  + (-3*q^4+2*q^2)  - q^4,
  (4*q^4-3*q^2+1)  - (-3*q^4+2*q^2)+ (2*q^4) *2 - q^4,
  (4*q^4-3*q^2+1)- (2*q^4),
  -(q-1)*(q+1), -(q-1)*(q+1), -(q-1)*(q+1), 
  -5*q^2+1, 2*q+1,  -2*q+1, 1],
 
 [[`A_2+\\tilde A_2`], (q-1)^4*(q+1)^4*(1-q^2+q^4)*(1-q+q^2)^2*(q^2+1)^2*(1+q^4),
  (q-1)^4*(q+1)^4*(1-q^2+q^4)*(1-q+q^2)^2*(q^2+1)^2*(1+q^4),
  -(q^2+1)*(1-q^2+q^4)*(1-q+q^2)^2*(q-1)^3*(q+1)^3,
 -3*q^13+5*q^12+2*q^11-8*q^10+6*q^9-q^8-6*q^7+8*q^6-q^5-5*q^4+4*q^3+1-2*q,
  -q^13+q^12+2*q^11-4*q^10+2*q^9+3*q^8-6*q^7+4*q^6+q^5-5*q^4+4*q^3+1-2*q,
   1+2*q^9-2*q^8-4*q^7+6*q^6-5*q^4+4*q^3-2*q,
  (q+1)*(3*q^6-2*q^5-q^4+2*q^3-q+1)*(q-1)^2,
  (1-q+q^3)*(1-q+q^2)*(q-1)^2*(q+1)^2,
  (1-q+q^2)*(2*q^3-q^2-q+1)*(q-1)^2*(q+1)^2,
  -2*q^7+3*q^6+1-4*q^4+4*q^3-2*q, (q+1)*(3*q^3-q^2-q+1)*(q-1)^2,
  (q+1)^2*(q-1)^4, -(q+1)*(q^2+1)*(q-1)^3,
  -(q+1)*(q-1)*(4*q^3-q^2-2*q+1), -(q+1)*(q-1)^3,
  (-3*q^4+(2+2)*q^3-2*q+1)  + (2*q^3-q^2) *3 + (3*q^4-2*q^3) *2 + q^4 *3,
  (-3*q^4+(2+2)*q^3-2*q+1)  - (2*q^3-q^2)   + q^4,
  (-3*q^4+(2+2)*q^3-2*q+1)  + (2*q^3-q^2)  - q^4,
  (-3*q^4+(2+2)*q^3-2*q+1)  - (2*q^3-q^2)+ (3*q^4-2*q^3) *2- q^4,
  (-3*q^4+(2+2)*q^3-2*q+1)- (3*q^4-2*q^3),
  (q+1)*(-1+2*q)*(q-1), (q+1)*(-1+2*q)*(q-1),  -q^2-2*q+1,  (q-1)^2,
  -3*q+1,   -q+1,  1],
 
 [[`F_4(a_1)`], (q-1)^4*(q+1)^4*(1-q^2+q^4)*(1+q+q^2)^2*(q^2+1)^2*(1+q^4),
  (q-1)^4*(q+1)^4*(1-q^2+q^4)*(1+q+q^2)^2*(q^2+1)^2*(1+q^4),
  -(q^2+1)*(1-q^2+q^4)*(1+q+q^2)^2*(q-1)^3*(q+1)^3, 
  q^13+q^12-2*q^11-4*q^10-2*q^9+3*q^8+6*q^7+4*q^6-q^5-5*q^4-4*q^3+1+2*q,
  3*q^13+5*q^12-2*q^11-8*q^10-6*q^9-q^8+6*q^7+8*q^6+q^5-5*q^4-4*q^3+1+2*q,
   1-2*q^9-2*q^8+4*q^7+6*q^6-5*q^4-4*q^3+2*q,
  -(1+q+q^2)*(q^3-q-1)*(q-1)^2*(q+1)^2,
  -(q-1)*(3*q^6+2*q^5-q^4-2*q^3+q+1)*(q+1)^2,
  -(-1-q+q^2+2*q^3)*(1+q+q^2)*(q-1)^2*(q+1)^2,
  2*q^7+3*q^6+1-4*q^4-4*q^3+2*q,
  (q-1)*(3*q^3+q^2-q-1)*(q+1)^2, (q-1)^2*(q+1)^4,
  -(q-1)*(q^2+1)*(q+1)^3, (q-1)*(q+1)*(4*q^3+q^2-2*q-1),
  -(q-1)*(q+1)^3,
  (-3*q^4-(2+2)*q^3+2*q+1)  + (-2*q^3-q^2) *3 + (3*q^4+2*q^3) *2 + q^4 *3,
  (-3*q^4-(2+2)*q^3+2*q+1)  - (-2*q^3-q^2) + q^4,
  (-3*q^4-(2+2)*q^3+2*q+1)  + (-2*q^3-q^2)- q^4,
  (-3*q^4-(2+2)*q^3+2*q+1)  - (-2*q^3-q^2)+ (3*q^4+2*q^3) *2 - q^4,
  (-3*q^4-(2+2)*q^3+2*q+1) - (3*q^4+2*q^3),
  -(q+1)*(q-1)*(2*q+1), -(q+1)*(q-1)*(2*q+1),
  -q^2+2*q+1, (q+1)^2, q+1, 3*q+1, 1],
 
 [[`\\tilde A_2`], (q-1)^2*(1+q+q^2)*(q+1)^4*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (q-1)^2*(1+q+q^2)*(q+1)^4*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (1-q+q^2)*(1+2*q^4)*(q-1)^2*(q^2+1)^2*(q+1)^4,
   1-q^12-q^11-2*q^10-3*q^9-q^8+2*q^6+2*q^5+q^4+q^3+q,
   2*q^13+q^12-q^11+2*q^10-q^9-3*q^8+1-2*q^6-2*q^5+q^4+q^3+q,
   1-q^9-2*q^8-q^7+q^4+q^3+q,
  (q+1)*(3*q^6+4*q^5+5*q^4+5*q^3+3*q^2+2*q+1)*(q-1)^2,
  (q-1)*(-1-q-q^2-q^3+q^4)*(1-q+q^2)*(q+1)^2,
  -(-1+q-2*q^2+q^3)*(1+q+q^2)*(1-q+q^2)*(q+1)^2,
  q^7+1-3*q^5-q^4+q^3+q, -(q+1)*(q^4-q^3-2*q^2-1),
  -(q-1)*(2*q^3+3*q^2+1)*(q+1)^2, (q+1)*(2*q+1)*(q^2+1)*(q-1)^2,
  -(q+1)*(q^4-2*q^3-4*q^2-1), -(q+1)*(q-1)*(3*q^3+q^2+q+1),
  (q^3+q+1)  + (2*q^3+2*q^2) *3 + (q^3) *2 + q^4 *3,
  (q^3+q+1)  - (2*q^3+2*q^2)   + q^4, (q^3+q+1)  + (2*q^3+2*q^2)  - q^4,
  (q^3+q+1)  - (2*q^3+2*q^2)+ (q^3) *2 - q^4, (q^3+q+1)   - (q^3),
  -(q-1)*(q+1)^2, (q+1)*(2*q^2+1),
  -q^2+q+1,  1+q+q^2, 3*q+1, -q+1, 1],
 
 [[`C_3+A_1`], (q-1)^4*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (q-1)^4*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (1+q+q^2)*(1+2*q^4)*(q+1)^2*(q^2+1)^2*(q-1)^4,
   -2*q^13+q^12+q^11+2*q^10+q^9-3*q^8+1-2*q^6+2*q^5+q^4-q^3-q,
   1-q^12+q^11-2*q^10+3*q^9-q^8+2*q^6-2*q^5+q^4-q^3-q,
   1+q**9-2*q^8+q^7+q^4-q^3-q,
  -(q+1)*(-1+q-q^2+q^3+q^4)*(1+q+q^2)*(q-1)^2,
  -(q-1)*(3*q^6-4*q^5+5*q^4-5*q^3+3*q^2-2*q+1)*(q+1)^2,
  (1+q+2*q^2+q^3)*(1+q+q^2)*(1-q+q^2)*(q-1)^2,
  -q^7+1+3*q^5-q^4-q^3-q, (q-1)*(q^4+q^3-2*q^2-1),
  -(q+1)*(2*q^3-3*q^2-1)*(q-1)^2, (-1+2*q)*(q-1)*(q^2+1)*(q+1)^2,
  (q-1)*(q^4+2*q^3-4*q^2-1), (q-1)*(q+1)*(3*q^3-q^2+q-1),
  (-q^3-q+1)  + (-2*q^3+2*q^2) *3 + (-q^3) *2 + q^4 *3,
  (-q^3-q+1)  - (-2*q^3+2*q^2)   + q^4, (-q^3-q+1)  + (-2*q^3+2*q^2)  - q^4,
  (-q^3-q+1)  - (-2*q^3+2*q^2)+ (-q^3) *2 - q^4, (-q^3-q+1)- (-q^3),
  (q+1)*(q-1)^2, -(q-1)*(2*q^2+1),  -q^2-q+1, 1-q+q^2,  q+1, -3*q+1, 1],
 
 [[`A_2`], (q-1)^2*(1+q+q^2)*(q+1)^4*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (q-1)^2*(1+q+q^2)*(q+1)^4*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  -(q-1)*(1-q^2+q^4)*(1+q+q^2)*(q^2+1)*(1-q+q^2)^2*(q+1)^3, 
   3*q^13+2*q^12-q^11+q^10-3*q^9-4*q^8+1-q^6-q^5+q^4+q^3+q,
   -q^13-2*q^12-q^11-q^10-q^9+1+q^6+q^5+q^4+q^3+q,
   1-q^9-2*q^8-q^7+q^4+q^3+q,
  (q+1)*(1+q+q^2)*(q^5-q^4+2*q^3-q+1),
  -(q-1)*(1-q+q^2)*(2*q^4+q^3+q^2+q+1)*(q+1)^2,
  (1-q+q^2)*(2*q^3+2*q^2+2*q+1)*(q-1)^2*(q+1)^2,
  q^7+1+2*q^4+q^3+q, -(q+1)*(q-1)*(q^3+q+1),
  -(q-1)*(2*q^3+1)*(q+1)^2, (q+1)*(q^2+1)*(2*q^3+1),
  -(q+1)*(q-1)*(q^3-q^2+q+1), -(q+1)*(q-1)*(3*q^3+q^2+q+1), 
  (q^3+q+1)  + (-q^3-q^2) *3 + (q^3) *2  + q^4 *3, (q^3+q+1)- (-q^3-q^2)+ q^4,
  (q^3+q+1)  + (-q^3-q^2) - q^4, (q^3+q+1) - (-q^3-q^2) + (q^3) *2 - q^4,
  (q^3+q+1)  - (q^3), (q+1)*(2*q^2+1), -(q-1)*(q+1)^2, 
  2*q^2+q+1,  -(2*q+1)*(q-1), 1, 2*q+1, 1],
 
 [[`D_4`], (q-1)^4*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)*(q^2+1)^2*(1-q^2+q^4)*(1+q^4), 
  (q-1)^4*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)*(q^2+1)^2*(1-q^2+q^4)*(1+q^4), 
  -(q+1)*(1-q^2+q^4)*(1-q+q^2)*(q^2+1)*(1+q+q^2)^2*(q-1)^3,
   q^13-2*q^12+q^11-q^10+q^9+1+q^6-q^5+q^4-q^3-q,
   -3*q^13+2*q^12+q^11+q^10+3*q^9-4*q^8+1-q^6+q^5+q^4-q^3-q,
   1+q^9-2*q^8+q^7+q^4-q^3-q,
  (q+1)*(1+q+q^2)*(2*q^4-q^3+q^2-q+1)*(q-1)^2,
  (q-1)*(1-q+q^2)*(q^5+q^4+2*q^3-q-1),
  -(1+q+q^2)*(2*q^3-2*q^2+2*q-1)*(q-1)^2*(q+1)^2,
  -q^7+1+2*q^4-q^3-q, (q-1)*(q+1)*(q^3+q-1), -(q+1)*(2*q^3-1)*(q-1)^2,
  (q-1)*(q^2+1)*(2*q^3-1), (q-1)*(q+1)*(q^3+q^2+q-1),
  (q-1)*(q+1)*(3*q^3-q^2+q-1), (-q^3-q+1)+(q^3-q^2) *3 +(-q^3) *2 + q^4 *3,
  (-q^3-q+1)  - (q^3-q^2)  + q^4, (-q^3-q+1)  + (q^3-q^2)  - q^4,
  (-q^3-q+1)  - (q^3-q^2)+ (-q^3) *2  - q^4, (-q^3-q+1)  - (-q^3),
  -(q-1)*(2*q^2+1), (q+1)*(q-1)^2, 2*q^2-q+1, -(q+1)*(-1+2*q),
  -2*q+1, 1, 1],
 
 [[`F_4`], (q-1)^4*(q+1)^4*(1-q+q^2)^2*(1+q+q^2)^2*(q^2+1)^2*(1+q^4),
  (q-1)^4*(q+1)^4*(1-q+q^2)^2*(1+q+q^2)^2*(q^2+1)^2*(1+q^4),
  -(q^2+1)*(1-q+q^2)^2*(1+q+q^2)^2*(q-1)^3*(q+1)^3,  
   -q^13-q^12+1+2*q^10+2*q^9+q^8-2*q^6-q^5-q^4,
   q^13-q^12+1+2*q^10-2*q^9+q^8-2*q^6+q^5-q^4,
   1+2*q^8-2*q^6-q^4,
  (q+1)*(1+q^2+q^3+q^4)*(1+q+q^2)*(q-1)^2,
  -(q-1)*(1+q^2-q^3+q^4)*(1-q+q^2)*(q+1)^2,
  (1-q+q^2)*(1+q+q^2)*(q-1)^2*(q+1)^2,
  1-q^6, -(q+1)*(q-1)*(1+q^4),
  (q^2+1)*(q-1)^2*(q+1)^2, -(q-1)*(q+1)*(q^2+1)^2,  (q-1)^2*(q+1)^2,
  -(q-1)*(q+1)*(q^2+1), (q^4+1)  + (-q^2) *3 + (-q^4) *2 + q^4 *3,
  (q^4+1)  - (-q^2) + q^4,  (q^4+1)  + (-q^2) - q^4,
  (q^4+1)  - (-q^2)+ (-q^4) *2 - q^4, (q^4+1)  - (-q^4),
  -(q-1)*(q+1),-(q-1)*(q+1),   -(q-1)*(q+1), q^2+1,   -q+1,  q+1,1],
 
 [[`A_1+\\tilde A_1`], (q-1)^2*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (q-1)^2*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  -(q+1)*(q-1)*(q^4+1)*(1-q+q^2)*(q^2+1)*(1+q+q^2),  
  1-q^12-q^10-q^8+q^4+q^2,
  1-q^12-q^10-q^8+q^4+q^2,
  q^10+1+q^4+q^2,
  -(q-1)*(1+q^3+q^4)*(1+q+q^2)*(q^2+1),
  (q+1)*(q^2+1)*(1-q+q^2)*(q^4-q^3+1),
  -(q+1)*(q-1)*(1-q+q^2)*(1+q+q^2)*(q^2+1),
  1+q^6+q^4+q^2,  2*q^6+1+q^2,  -(q-1)*(q+1)*(q^2+1)^2,
  -(q-1)*(q+1)*(q^2+1)^2,  -4*q^4+1+q^2,  q^2+1, 
  (q^2+1)  + (-q^4) *3 + (-2*q^4) *2 - q^4 *3,
  (q^2+1)  - (-q^4)  - q^4, (q^2+1)  + (-q^4)  + q^4,
  (q^2+1)  - (-q^4)  + (-2*q^4) *2 + q^4, (q^2+1)  - (-2*q^4),
  q^2+1, q^2+1, q^2+1,  q^2+1,  1,  1,  1],

 [[`B_2`], (q-1)^2*(1+q+q^2)^2*(q+1)^4*(1-q+q^2)^2*(q^2+1)*(1-q^2+q^4)*(1+q^4),
  (q-1)^2*(1+q+q^2)^2*(q+1)^4*(1-q+q^2)^2*(q^2+1)*(1-q^2+q^4)*(1+q^4),
  -(q-1)*(1-q+q^2)*(1+q+q^2)*(q^4+1)*(q+1)^3,   
  2*q^13+3*q^12+1-3*q^10-4*q^9-3*q^8-2*q^7+2*q^5+q^4+q^2+2*q,
  2*q^13+3*q^12+1+q^10+4*q^9+q^8-2*q^7+2*q^5+q^4+q^2+2*q,
  q^10+1-4*q^8-4*q^7+2*q^5+q^4+q^2+2*q,
  -(q-1)*(1+q^3+q^4)*(1+q+q^2)*(q+1)^2, (1-q+q^2)*(q^4-q^3+1)*(q+1)^3,
  -(q-1)*(1-q+q^2)*(1+q+q^2)*(q+1)^3,
  -2*q^7-3*q^6+1+q^4+q^2+2*q,
  -(q+1)*(q-1)*(2*q^4+2*q^3+2*q^2+2*q+1),  -(q^4-2*q^3-1)*(q+1)^2,
  -(q^4-2*q^3-1)*(q+1)^2, -(q+1)*(2*q^4-2*q^3-q-1), (2*q^3+1)*(q+1)^2,
  (q^2+2*q+1)  + (-q^4) *3 + (2*q^4+2*q^3) *2 - q^4 *3,
  (q^2+2*q+1)  - (-q^4)  - q^4, (q^2+2*q+1)  + (-q^4)  + q^4,
  (q^2+2*q+1)  - (-q^4)  + (2*q^4+2*q^3) *2 + q^4,
  (q^2+2*q+1)  - (2*q^4+2*q^3),
  (q+1)^2, (q+1)^2, (q+1)^2,  (q+1)^2,  2*q+1,  2*q+1,  1],
 
 [[`A_3+\\tilde A_1`], (q-1)^4*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)^2*(q^2+1)*(1-q^2+q^4)*(1+q^4),
  (q-1)^4*(1+q+q^2)^2*(q+1)^2*(1-q+q^2)^2*(q^2+1)*(1-q^2+q^4)*(1+q^4),
  -(q+1)*(1-q+q^2)*(1+q+q^2)*(q^4+1)*(q-1)^3, 
  -2*q^13+3*q^12+1+q^10-4*q^9+q^8+2*q^7-2*q^5+q^4+q^2-2*q,
  -2*q^13+3*q^12+1-3*q^10+4*q^9-3*q^8+2*q^7-2*q^5+q^4+q^2-2*q,
  q^10+1-4*q^8+4*q^7-2*q^5+q^4+q^2-2*q,
  -(1+q^3+q^4)*(1+q+q^2)*(q-1)^3, 
  (q+1)*(1-q+q^2)*(q^4-q^3+1)*(q-1)^2,
  -(q+1)*(1-q+q^2)*(1+q+q^2)*(q-1)^3,
  2*q^7-3*q^6+1+q^4+q^2-2*q,
  -(q+1)*(q-1)*(2*q^4-2*q^3+2*q^2-2*q+1),  -(q^4+2*q^3-1)*(q-1)^2,
  -(q^4+2*q^3-1)*(q-1)^2, (q-1)*(2*q^4+2*q^3+q-1), -(2*q^3-1)*(q-1)^2,
  (q^2-2*q+1)  + (-q^4) *3 + (2*q^4-2*q^3) *2 - q^4 *3,
  (q^2-2*q+1)  - (-q^4)  - q^4, (q^2-2*q+1)  + (-q^4)  + q^4,
  (q^2-2*q+1)  - (-q^4)  + (2*q^4-2*q^3) *2 + q^4,
  (q^2-2*q+1)  - (2*q^4-2*q^3),
  (q-1)^2, (q-1)^2, (q-1)^2,  (q-1)^2,  -2*q+1,  -2*q+1,  1],
 
 [[`B_4`], (q-1)^4*(1+q+q^2)^2*(q+1)^4*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4),
  (q-1)^4*(1+q+q^2)^2*(q+1)^4*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4),
  -(1-q+q^2)*(1+q+q^2)*(q^2+1)*(q-1)^3*(q+1)^3, 
  1-q^12+q^10+q^8-q^4-q^2,
  1-q^12+q^10+q^8-q^4-q^2,
  -q^10+1+2*q^8-q^4-q^2,
  -(q+1)*(-1-q^3+q^4)*(1+q+q^2)*(q-1)^2,
  (q-1)*(-1+q^3+q^4)*(1-q+q^2)*(q+1)^2,
  (1-q+q^2)*(1+q+q^2)*(q-1)^2*(q+1)^2,
  1+q^6-q^4-q^2,
  -(q-1)*(q+1),  (q^2+1)*(q-1)^2*(q+1)^2,  (q^2+1)*(q-1)^2*(q+1)^2,
  -(q-1)*(q+1),  -(q-1)*(q+1), (-q^2+1)  + (q^4) *3  - q^4 *3,
  (-q^2+1)  - (q^4) - q^4, (-q^2+1)  + (q^4) + q^4,
  (-q^2+1)  - (q^4) + q^4, (-q^2+1),
  -(q-1)*(q+1), -(q-1)*(q+1), -(q-1)*(q+1), -(q-1)*(q+1), 1, 1,  1],
 
[[`\\tilde A_1`], -(q-1)*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
 -(q-1)*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
 -(q-1)*(1+2*q^4)*(1-q+q^2)*(1+q+q^2)*(q^2+1)^2*(q+1)^3,
 -2*q^13-3*q^12-4*q^11-q^10+4*q^9+9*q^8+12*q^7+10*q^6+8*q^5+5*q^4+4*q^3+3*q^2+2*q+1,
 -2*q^13-3*q^12-4*q^11-5*q^10-4*q^9-3*q^8+1+2*q^6+4*q^5+5*q^4+4*q^3+3*q^2+2*q,
 -3*q^10-4*q^9+1+4*q^7+6*q^6+6*q^5+5*q^4+4*q^3+3*q^2+2*q,
 -(q-1)*(1+2*q+3*q^2+5*q^3+5*q^4+5*q^5+5*q^6)*(1+q+q^2),
 -(q+1)*(1-q+q^2)*(3*q^6+q^5-q^4-3*q^3-3*q^2-2*q-1),
 (1+3*q^2)*(1-q+q^2)*(1+q+q^2)*(q+1)^2, -2*q^7-3*q^6+1+3*q^4+4*q^3+3*q^2+2*q,
 (q+1)*(2*q^4+4*q^3+4*q^2+q+1), -(q+1)*(3*q^5-3*q^4-6*q^3-4*q^2-q-1),
 -(q-1)*(q^2+1)*(3*q^3+3*q^2+3*q+1), (2*q^3+6*q^2+1)*(q+1)^2,
 -(q+1)*(2*q^4-4*q^3-2*q^2-q-1), 
  (4*q^3+3*q^2+2*q+1)  + (3*q^4+4*q^3+2*q^2) *3 + (2*q^3) *2 + q^4 *3,
  (4*q^3+3*q^2+2*q+1)  - (3*q^4+4*q^3+2*q^2)   + q^4,
  (4*q^3+3*q^2+2*q+1)  + (3*q^4+4*q^3+2*q^2)  - q^4,
  (4*q^3+3*q^2+2*q+1)  - (3*q^4+4*q^3+2*q^2)+ (2*q^3) *2 - q^4,
  (4*q^3+3*q^2+2*q+1)  - (2*q^3),
  1+3*q^2+2*q,  (q+1)*(4*q^2+q+1), 1+3*q^2+2*q,  1+3*q^2+2*q,  4*q+1,   1,  1],

 [[`2A_1+\\tilde A_1`], -(q-1)^3*(1+q+q^2)^2*(q+1)*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  -(q-1)^3*(1+q+q^2)^2*(q+1)*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  -(q+1)*(1+2*q^4)*(1-q+q^2)*(1+q+q^2)*(q^2+1)^2*(q-1)^3,  
  2*q^13-3*q^12+4*q^11-5*q^10+4*q^9-3*q^8+1+2*q^6-4*q^5+5*q^4-4*q^3+3*q^2-2*q,
 2*q^13-3*q^12+4*q^11-q^10-4*q^9+9*q^8-12*q^7+10*q^6-8*q^5+5*q^4-4*q^3+3*q^2-2*q+1,
  -3*q^10+4*q^9+1-4*q^7+6*q^6-6*q^5+5*q^4-4*q^3+3*q^2-2*q,
  (q-1)*(1+q+q^2)*(3*q^6-q^5-q^4+3*q^3-3*q^2+2*q-1),
  (q+1)*(1-q+q^2)*(5*q^6-5*q^5+5*q^4-5*q^3+3*q^2-2*q+1),
  (1+3*q^2)*(1-q+q^2)*(1+q+q^2)*(q-1)^2,
  2*q^7-3*q^6+1+3*q^4-4*q^3+3*q^2-2*q, -(q-1)*(2*q^4-4*q^3+4*q^2-q+1),
  -(q-1)*(3*q^5+3*q^4-6*q^3+4*q^2-q+1),
  -(q+1)*(q^2+1)*(3*q^3-3*q^2+3*q-1),  -(2*q^3-6*q^2-1)*(q-1)^2,
   (q-1)*(2*q^4+4*q^3-2*q^2+q-1),
  (-4*q^3+3*q^2-2*q+1)  + (3*q^4-4*q^3+2*q^2) *3 + (-2*q^3) *2 + q^4 *3,
  (-4*q^3+3*q^2-2*q+1)  - (3*q^4-4*q^3+2*q^2)   + q^4,
  (-4*q^3+3*q^2-2*q+1)  + (3*q^4-4*q^3+2*q^2)  - q^4,
  (-4*q^3+3*q^2-2*q+1)  - (3*q^4-4*q^3+2*q^2)  + (-2*q^3) *2 - q^4,
  (-4*q^3+3*q^2-2*q+1) - (-2*q^3),
  1+3*q^2-2*q, -(q-1)*(4*q^2-q+1), 1+3*q^2-2*q,  1+3*q^2-2*q,  1, -4*q+1, 1],

 [[`A_1`], -(q-1)*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  -(q-1)*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (q^4+1)*(1-q+q^2)*(q^2+1)*(1+q+q^2)*(q+1)^2, 
  -4*q^13-7*q^12-10*q^11-9*q^10-4*q^9+q^8+6*q^7+6*q^6+6*q^5+5*q^4+4*q^3+3*q^2+2*q+1, 1+q^12+2*q^11+3*q^10+4*q^9+5*q^8+6*q^7+6*q^6+6*q^5+5*q^4+4*q^3+3*q^2+2*q,
  -3*q^10-4*q^9+1+4*q^7+6*q^6+6*q^5+5*q^4+4*q^3+3*q^2+2*q,
  (1+q+q^2)*(q^5+2*q^4-q^3+2*q^2-q+1)*(q+1)^2,
  -(-1-q-2*q^2-q^3-2*q^4+q^5)*(1-q+q^2)*(q+1)^2,
  -(q+1)*(q-1)*(1+q+q^2)*(1-q+q^2)*(4*q^3+3*q^2+2*q+1),
  2*q^7+3*q^6+4*q^5+5*q^4+4*q^3+3*q^2+2*q+1, -(q+1)*(2*q^4-2*q^3-2*q^2-q-1),
  (q+1)*(3*q^3+q^2+q+1)*(q^2+1), (q+1)*(3*q^3+q^2+q+1)*(q^2+1),
  -2*q^5-4*q^4+6*q^3+3*q^2+2*q+1,  2*q^5+4*q^4+6*q^3+3*q^2+2*q+1,
  (4*q^3+3*q^2+2*q+1)  + (-3*q^4) *3 + (2*q^3) *2 - q^4 *3,
  (4*q^3+3*q^2+2*q+1)  - (-3*q^4)   - q^4,
  (4*q^3+3*q^2+2*q+1)  + (-3*q^4)  + q^4,
  (4*q^3+3*q^2+2*q+1)  - (-3*q^4)+ (2*q^3) *2 + q^4,
  (4*q^3+3*q^2+2*q+1)- (2*q^3),
  (q+1)*(4*q^2+q+1), 1+3*q^2+2*q,  5*q^2+2*q+1,  (q+1)^2,  2*q+1,   2*q+1, 1],

 [[`3A_1`], -(q-1)^3*(1+q+q^2)^2*(q+1)*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
   -(q-1)^3*(1+q+q^2)^2*(q+1)*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
   (q^4+1)*(1-q+q^2)*(q^2+1)*(1+q+q^2)*(q-1)^2, 
   1+q^12-2*q^11+3*q^10-4*q^9+5*q^8-6*q^7+6*q^6-6*q^5+5*q^4-4*q^3+3*q^2-2*q,
 4*q^13-7*q^12+10*q^11-9*q^10+4*q^9+q^8-6*q^7+6*q^6-6*q^5+5*q^4-4*q^3+3*q^2-2*q+1,
   -3*q^10+4*q^9+1-4*q^7+6*q^6-6*q^5+5*q^4-4*q^3+3*q^2-2*q,
   (1+q+q^2)*(q^5+2*q^4-q^3+2*q^2-q+1)*(q-1)^2,
   -(-1-q-2*q^2-q^3-2*q^4+q^5)*(1-q+q^2)*(q-1)^2,
   (q-1)*(q+1)*(1+q+q^2)*(1-q+q^2)*(4*q^3-3*q^2+2*q-1),
   -2*q^7+3*q^6-4*q^5+5*q^4-4*q^3+3*q^2-2*q+1, (q-1)*(2*q^4+2*q^3-2*q^2+q-1),
   (q-1)*(3*q^3-q^2+q-1)*(q^2+1),  (q-1)*(3*q^3-q^2+q-1)*(q^2+1),
   2*q^5-4*q^4-6*q^3+3*q^2-2*q+1,  -2*q^5+4*q^4-6*q^3+3*q^2-2*q+1,
  (-4*q^3+3*q^2-2*q+1)  + (-3*q^4) *3 + (-2*q^3) *2 - q^4 *3,
  (-4*q^3+3*q^2-2*q+1)  - (-3*q^4)   - q^4,
  (-4*q^3+3*q^2-2*q+1)  + (-3*q^4)  + q^4,
  (-4*q^3+3*q^2-2*q+1)  - (-3*q^4)+ (-2*q^3) *2 + q^4,
  (-4*q^3+3*q^2-2*q+1)- (-2*q^3),
  -(q-1)*(4*q^2-q+1), 1+3*q^2-2*q,  5*q^2-2*q+1, (q-1)^2,  -2*q+1,  -2*q+1,  1],

 [[`B_2+A_1`], -(q-1)^3*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)^2*(q^2+1)*(1-q^2+q^4)*(1+q^4),
  -(q-1)^3*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)^2*(q^2+1)*(1-q^2+q^4)*(1+q^4),
  -(1+2*q^4)*(1-q+q^2)*(q^2+1)*(1+q+q^2)*(q-1)^3*(q+1)^3,  
  1+q^12+q^10-q^8-2*q^7-2*q^6+2*q^5+q^4-q^2,
  1+q^12+q^10-q^8+2*q^7-2*q^6-2*q^5+q^4-q^2,
  q^10+1-2*q^6+q^4-q^2,
  -(q+1)*(-1-q^3+q^4)*(1+q+q^2)*(q-1)^2,
  (q-1)*(-1+q^3+q^4)*(1-q+q^2)*(q+1)^2,
  -(q+1)*(q-1)*(1-q+q^2)*(1+q+q^2)*(q^2+1),
  1+q^6-q^4-q^2,
  -(q+1)*(q-1)*(2*q^2+1), (q-1)*(q+1)*(q^4-2*q^2-1),
  (q-1)*(q+1)*(q^4+2*q^2-1), 1-2*q^4+3*q^2, -(q^2+1)*(2*q^2-1),
  (-q^2+1)  + (-q^4+2*q^2) *3 + q^4 *3, (-q^2+1)  - (-q^4+2*q^2)  + q^4,
  (-q^2+1)  + (-q^4+2*q^2)  - q^4, (-q^2+1)  - (-q^4+2*q^2)  - q^4, (-q^2+1),
  -(q-1)*(q+1), q^2+1, -(q-1)*(q+1),  -(q-1)*(q+1),  2*q+1,  -2*q+1,  1],

 [[`A_3`], -(q-1)^3*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)^2*(q^2+1)*(1-q^2+q^4)*(1+q^4),
  -(q-1)^3*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)^2*(q^2+1)*(1-q^2+q^4)*(1+q^4),
  (1-q+q^2)*(1+q+q^2)*(q^4+1)*(q-1)^2*(q+1)^2, 
   -2*q^13+q^12+2*q^11+q^10+1-q^8-2*q^6+q^4-q^2,
   2*q^13+q^12-2*q^11+q^10+1-q^8-2*q^6+q^4-q^2,
   q^10+1-2*q^6+q^4-q^2,
  (q-1)*(1+q+q^2)*(q^6-q^5-q^4-q^3+q^2-1),
  -(q+1)*(-1+q^2+q^3-q^4+q^5+q^6)*(1-q+q^2),
  (1-q+q^2)*(1+q+q^2)*(q-1)^2*(q+1)^2,
  1-q^6+q^4-q^2,
  -(q-1)*(q+1), -(q+1)*(q-1)*(1+q^4), -(q+1)*(q-1)*(1+q^4),
  -(q-1)*(q+1), -(q-1)*(q+1), (-q^2+1)  + (q^4) *3 - q^4 *3,
  (-q^2+1)  - (q^4)   - q^4, (-q^2+1)  + (q^4)  + q^4,
  (-q^2+1)  - (q^4)   + q^4, (-q^2+1),
  q^2+1,-(q-1)*(q+1), q^2+1, -3*q^2+1, 1, 1,  1],

 [[`B_3`], -(q-1)^3*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  -(q-1)^3*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (1-q^2+q^4)*(1-q+q^2)*(q^2+1)*(q-1)^2*(q+1)^2*(1+q+q^2)^2,  
  -q^13+1+q^11+q^10+q^9-q^6-q^5-q^4-q^3+q,
  -q^13+1+q^11-q^10-q^9+q^6+q^5-q^4-q^3+q,
  1+q^9-q^7-q^4-q^3+q,
  -(q+1)*(q-1)*(1+q+q^2)*(1+q^4),
  (q+1)*(1-q+q^2)*(2*q^6+q^5-q^4-2*q^3+q+1),
  (1+q+q^2)*(q-1)^2*(q+1)^2,
  -q^7+1-q^3+q,
  (q-1)*(q+1)*(q^3-q-1), -(q-1)*(q+1)^2, (q+1)*(q^2+1),
  (q-1)^2*(q+1)^3, -(q-1)*(q^2+1)*(q+1)^2, 
  (-q^3+q+1)  + (-q^3-q^2) *3 + (q^3) *2 + q^4 *3,
  (-q^3+q+1)  - (-q^3-q^2)  + q^4, (-q^3+q+1)  + (-q^3-q^2)  - q^4,
  (-q^3+q+1)  - (-q^3-q^2)  + (q^3) *2 - q^4, (-q^3+q+1)   - (q^3),
  q+1, -(q-1)*(q+1)^2, q+1, q+1, 1,  2*q+1, 1],

 [[`A_2+\\tilde A_1`], -(q-1)^3*(1+q+q^2)*(q+1)^3*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  -(q-1)^3*(1+q+q^2)*(q+1)^3*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (1-q^2+q^4)*(1+q+q^2)*(q^2+1)*(q-1)^2*(q+1)^2*(1-q+q^2)^2, 
  q^13+1-q^11-q^10+q^9+q^6-q^5-q^4+q^3-q,
  q^13+1-q^11+q^10-q^9-q^6+q^5-q^4+q^3-q,
  1-q^9+q^7-q^4+q^3-q,
  -(q-1)*(1+q+q^2)*(2*q^6-q^5-q^4+2*q^3-q+1),
  -(q+1)*(q-1)*(1-q+q^2)*(1+q^4), (1-q+q^2)*(q-1)^2*(q+1)^2,
  q^7+1+q^3-q,  -(q+1)*(q-1)*(1-q+q^3), (q+1)*(q-1)^2,
  -(q-1)*(q^2+1),  -(q+1)^2*(q-1)^3, (q+1)*(q^2+1)*(q-1)^2,
  (q^3-q+1)  + (q^3-q^2) *3 + (-q^3) *2 + q^4 *3,  (q^3-q+1)- (q^3-q^2)+ q^4,
  (q^3-q+1)  + (q^3-q^2)  - q^4, (q^3-q+1)  - (q^3-q^2)  + (-q^3) *2 - q^4,
  (q^3-q+1)  - (-q^3), -q+1, (q+1)*(q-1)^2, -q+1, -q+1,  -2*q+1, 1, 1],

 [[`\\tilde A_2+A_1`], -(q-1)^3*(1+q+q^2)*(q+1)^3*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  -(q-1)^3*(1+q+q^2)*(q+1)^3*(1-q+q^2)^2*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (q^4+1)*(1-q+q^2)*(q^2+1)*(q-1)^2*(q+1)^2,
   2*q^13-q^12-q^11+1-q^9+q^8-q^4+q^3-q,
   1+q^12-q^11+q^9-q^8-q^4+q^3-q,
   1-q^9+q^7-q^4+q^3-q,
  (q+1)*(1-q+q^2)*(q^4+q^3+q^2+q+1)*(q-1)^2,
  -(q-1)*(1-q+q^2-q^3+q^4)*(1-q+q^2)*(q+1)^2,
  -(q+1)*(q-1)*(1-q+q^3)*(1-q+q^2)*(1+q+q^2),
  -q^7+1+q^5-q^4+q^3-q, (q+1)*(q^4-q^3+2*q^2-2*q+1),
  (q+1)*(q^2+1)*(q-1)^2, (q+1)*(q^2+1)*(q-1)^2, (q+1)*(q^2+1)*(q-1)^2,
  -(q-1)*(1+q^4), (q^3-q+1)   + (-q^3) *2 - q^4 *3,
  (q^3-q+1)  - q^4, (q^3-q+1) + q^4, (q^3-q+1)   + (-q^3) *2 + q^4,
  (q^3-q+1)   - (-q^3),
  (q+1)*(q-1)^2,  -q+1,  -q^2-q+1,  1-q+q^2,   -q+1,   -q+1, 1],

 [[`C_3`], -(q-1)^3*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  -(q-1)^3*(1+q+q^2)^2*(q+1)^3*(1-q+q^2)*(q^2+1)^2*(1-q^2+q^4)*(1+q^4),
  (q^4+1)*(q^2+1)*(1+q+q^2)*(q-1)^2*(q+1)^2,
   1+q^12+q^11-q^9-q^8-q^4-q^3+q,
   -2*q^13-q^12+q^11+1+q^9+q^8-q^4-q^3+q,
   1+q^9-q^7-q^4-q^3+q,
  (q+1)*(1+q+q^2)*(q^4+q^3+q^2+q+1)*(q-1)^2,
  -(q-1)*(1-q+q^2-q^3+q^4)*(1+q+q^2)*(q+1)^2,
  (q-1)*(q+1)*(1-q+q^2)*(1+q+q^2)*(q^3-q-1),
  q^7+1-q^5-q^4-q^3+q, -(q-1)*(q^4+q^3+2*q^2+2*q+1),
  -(q-1)*(q^2+1)*(q+1)^2,  -(q-1)*(q^2+1)*(q+1)^2,
  -(q-1)*(q^2+1)*(q+1)^2, (q+1)*(1+q^4), (-q^3+q+1)   + (q^3) *2 - q^4 *3,
  (-q^3+q+1)  - q^4, (-q^3+q+1) + q^4, (-q^3+q+1)   + (q^3) *2 + q^4,
  (-q^3+q+1)   - (q^3),
  -(q-1)*(q+1)^2,  q+1,  -q^2+q+1, 1+q+q^2, q+1,  q+1,  1]
]):

KlassentypOrdF4005green:=array(1..26,[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]):

NurPolynomF4005green:=true:

# 5) Informationen:
Information.`F4005green`:=TEXT(
`- Information about the Green functions of $F_4(q)$, $p>3$.`,
``,
`- CHEVIE-name of the table: ``F4n23green```,
``,
`- The table was first computed in:`,
`  {\\sc T. Shoji}, On the Green polynomials of a Chevalley group of type $F_4$,`,
`    {\\em Comm. Algebra \\bf10} (1982), 505--543.`,
``
):

g := `F4n23green`;
print(`g := ``F4n23green`` `);
