// BBOX converted automatically from // http://atlas.math.rwth-aachen.de/Atlas/spor/Suz/words/Suzd2G1-max4W1 function(S) // WARNING! This is not an SLP! w1 := S.1; w2 := S.2; w3 := w1 * w2; w4 := w3 * w2; w5 := w3 * w3; w6 := w5 * w5; w7 := w4 * w5; w5 := w4 * w4; w8 := w5 * w6; w5 := w8 * w3; w8 := w3 * w4; w9 := w8 * w1; w10 := w2 * w1; w1 := w5^5; w5 := w2 * w10; w10 := w5 * w5; w5 := w10 * w2; w10 := w5 * w3; w5 := w10 * w8; w8 := w5 * w9; w5 := w4 * w7; w4 := w5 * w7; w5 := w4 * w6; w6 := w5^3; w2 := w8^-1; w3 := w2 * w6; w2 := w3 * w8; return [w1,w2]; end function;