# BBOX converted automatically from
# http://atlas.math.rwth-aachen.de/Atlas/alt/A7/words/S7G1-max1W1
work := [];;
output := [];;
work[1] := input[1];;
work[2] := input[2];;
work[3] := work[1] * work[2];;
work[4] := work[2] * work[2];;
work[5] := work[4] * work[4];;
work[4] := work[3] * work[5];;
work[5] := work[3] * work[1];;
work[6] := work[2] * work[4];;
work[1] := work[4] * work[3];;
work[2] := work[6] * work[5];;
output[1] := work[1];;
output[2] := work[2];;