[GAP Forum] Looking for automorphisms of triple steiner systems

[mbg nimda]

Hello, I'm new here and forgive me if I broke any rules.
I'm trying to determine the automorphism group of Steiner(2,3,13) but I get
a memory exceeded error.
Here is the session:

gap> st;
[ [ 2, 4, 11 ], [ 7, 10, 12 ], [ 3, 8, 10 ], [ 2, 6, 12 ], [ 3, 6, 13 ], [
1, 6, 10 ], [ 5, 11, 13 ], [ 1, 2, 3 ],
  [ 3, 4, 9 ], [ 5, 7, 8 ], [ 3, 7, 11 ], [ 4, 8, 12 ], [ 1, 8, 13 ], [ 5,
6, 9 ], [ 9, 12, 13 ], [ 1, 7, 9 ],
  [ 2, 5, 10 ], [ 2, 7, 13 ], [ 2, 8, 9 ], [ 6, 8, 11 ], [ 9, 10, 11 ], [ 4,
10, 13 ], [ 1, 11, 12 ], [ 1, 4, 5 ],
  [ 4, 6, 7 ], [ 3, 5, 12 ] ]
gap>
gap>
gap> g:=SymmetricGroup(13);
Sym( [ 1 .. 13 ] )
gap> h:=Stabilizer(g,st,OnSetsSets);
exceeded the permitted memory (`-o' command line option) at
i := i + 1;
 called from
List( e, function ( i )
      return OnSets( i, g );
  end ) called from
act( orb[p], acts[i] ) called from
OrbitStabilizerAlgorithm( G, false, false, gens, acts, rec(
    pnt := d,
    act := act ) ) called from
orbish( G, pnt, gens, acts, act ) called from
CallFuncList( StabilizerFunc, arg ) called from
...
Entering break read-eval-print loop ...
you can 'quit;' to quit to outer loop, or
you can 'return;' to continue
brk>
Thanks if you can find a workaround.