Quelle  B2-5

#Example: "B2-5" . . . based on: examples/B2-5
#Construction of B(2,5)
#i.e. largest finite 2-generator group of exponent 5
#vars: F, procId;
#options: OutputLevel 
F := FreeGroup("a", "b");
#alt: do
#procId := PqStart( F );
#comment: set a different print level by supplying <OutputLevel>
#alt: sub <procId> for <F>
Pq( F : Prime := 5, ClassBound := 14, Exponent := 5,
#sub <OutputLevel> for <1> if set and ok
        OutputLevel := 1 );