Quelle  m11slps.g   Sprache: unbekannt

s1 := StraightLineProgram( 
[ [ [ 1, 1, 2, 5, 1, 1, 2, 1 ], [ 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 
          1, 1 ] ] ], 2 );
s2 := StraightLineProgram( [ [ [ 1, 1, 2, 1 ], 3 ], [ [ 3, 1, 2, 1 ], 4 ], 
  [ [ 3, 1, 4, 1 ], 5 ], [ [ 3, 1, 5, 1 ], 6 ], [ [ 6, 1, 3, 1 ], 7 ], 
  [ [ 4, 1, 4, 1 ], 5 ], [ [ 5, -1 ], 6 ], [ [ 6, 1, 7, 1 ], 4 ], 
  [ [ 4, 1, 5, 1 ], 2 ], [ [ 3, 1, 3, 1 ], 4 ], [ [ 4, 1, 4, 1 ], 3 ], 
  [ [ 3, -1 ], 4 ], [ [ 4, 1, 1, 1 ], 5 ], [ [ 5, 1, 3, 1 ], 1 ], 
  [ [ 1, 1 ], [ 2, 1 ] ] ], 2 );