$ gapdev rundemo.g 
    
            #########           ######         ###########           ###  
         #############          ######         ############         ####  
        ##############         ########        #############       #####  
       ###############         ########        #####   ######      #####  
      ######         #         #########       #####    #####     ######  
     ######                   ##########       #####    #####    #######  
     #####                    ##### ####       #####   ######   ########  
     ####                    #####  #####      #############   ###  ####  
     #####     #######       ####    ####      ###########    ####  ####  
     #####     #######      #####    #####     ######        ####   ####  
     #####     #######      #####    #####     #####         #############
      #####      #####     ################    #####         #############
      ######     #####     ################    #####         #############
      ################    ##################   #####                ####  
       ###############    #####        #####   #####                ####  
         #############    #####        #####   #####                ####  
          #########      #####          #####  #####                ####  
                                                                          
     Information at:  http://www.gap-system.org
     Try '?help' for help. See also  '?copyright' and  '?authors'
    
   Loading the library. Please be patient, this may take a while.
#I  Trying to use
#I  [ "safari", "screen" ]
#I  (in this order) as help viewer.
--------------------------------------------------------------------------------------------------------
Loading  IO 2.3 (Bindings to low level I/O in the C library)
by Max Neunhoeffer (http://www-groups.mcs.st-and.ac.uk/~neunhoef/).
--------------------------------------------------------------------------------------------------------
    ######################################################################
    ##                                                                  ##
    ##        GAPDoc 1.2 (a GAP documentation meta-package)             ##
    ##                                                                  ##
    ##   Questions and remarks to: Frank.Luebeck@Math.RWTH-Aachen.De    ##
    ##                             Max.Neunhoeffer@Math.RWTH-Aachen.De  ##
    ##                                                                  ##
    ######################################################################

OpenMath package, by Andrew Solomon and Marco Costantini
#I  Warning: package openmath, the program `gpipe' is not compiled.
--------------------------------------------------------------------------------------------------------
Loading  SCSCP 0.4 (Symbolic Computation Software Composability Protocol)
by Alexander Konovalov (http://www.cs.st-andrews.ac.uk/~alexk/) and
   Steve Linton (http://www.cs.st-and.ac.uk/~sal/).
--------------------------------------------------------------------------------------------------------
#I  Package ``nq'': The executable program is not available
GAP4, Version: 4.dev of today, i686-apple-darwin9.3.0-gcc
Components:  small 2.1, small2 2.0, small3 2.0, small4 1.0, small5 1.0, small6 1.0, small7 1.0, 
             small8 1.0, small9 1.0, small10 0.2, small11 0.1, id2 3.0, id3 2.1, id4 1.0, id5 1.0, 
             id6 1.0, id9 1.0, id10 0.1, trans 1.0, prim 2.1  loaded.
Packages:    openmath 06.03.02, GAPDoc 1.2, IO 2.3, SCSCP 0.4, AClib 1.1, Polycyclic 2.2, Alnuth 2.2.5, 
             CrystCat 1.1.1, Cryst 4.1.6, AutPGrp 1.2, CRISP 1.3.2, CTblLib 1.1.4, TomLib 1.1.2, 
             FactInt 1.5.2, FGA 1.1.0.1, IRREDSOL 1.1.2, LAGUNA 3.4, Sophus 1.22, Polenta 1.2.7, 
             ResClasses 2.5.3  loaded.
gap> # Output in OpenMath format
gap> OMPrint( 1 );
<OMOBJ>
	<OMI> 1</OMI>
</OMOBJ>
gap> OMPrint( [ 1, 2 ] );
<OMOBJ>
	<OMA>
		<OMS cd="list1" name="list"/>
		<OMI> 1</OMI>
		<OMI> 2</OMI>
	</OMA>
</OMOBJ>
gap> OMPrint( [ [ 1, 2 ], [ 3, 4 ] ] );
<OMOBJ>
	<OMA>
		<OMS cd="linalg2" name="matrix"/>
		<OMA>
			<OMS cd="linalg2" name="matrixrow"/>
			<OMI> 1</OMI>
			<OMI> 2</OMI>
		</OMA>
		<OMA>
			<OMS cd="linalg2" name="matrixrow"/>
			<OMI> 3</OMI>
			<OMI> 4</OMI>
		</OMA>
	</OMA>
</OMOBJ>
gap> OMPrint( "This is a string" );
<OMOBJ>
	<OMSTR>This is a string</OMSTR>
</OMOBJ>
gap> OMPrint( true );
<OMOBJ>
	<OMS cd="logic1" name="true"/>
</OMOBJ>
gap> OMPrint( (1,2,3) );
<OMOBJ>
	<OMA>
		<OMS cd="permut1" name="permutation"/>
		<OMI> 2</OMI>
		<OMI> 3</OMI>
		<OMI> 1</OMI>
	</OMA>
</OMOBJ>
gap> OMTest( ( 1, 2, 3 ) );
true
gap> OMPrint(Integers);
<OMOBJ>
	<OMS cd="setname1" name="Z"/>
</OMOBJ>
gap> x := Indeterminate( Rationals, "x" );
x
gap> OMPrint( PolynomialRing( Rationals ) );
<OMOBJ>
	<OMA id="polyringBCbCsN5VUfshTbCP" >
		<OMS cd="polyd1" name="poly_ring_d_named"/>
		<OMS cd="setname1" name="Q"/>
		<OMV name="x"/>
	</OMA>
</OMOBJ>
gap> OMPrint( 1 + 2*x + 3*x^2 + x^3 );
<OMOBJ>
	<OMA>
		<OMS cd="polyd1" name="DMP"/>
		<OMR href="#polyringBCbCsN5VUfshTbCP" />
		<OMA>
			<OMS cd="polyd1" name="SDMP"/>
			<OMA>
				<OMS cd="polyd1" name="term"/>
				<OMI> 1</OMI>
				<OMI> 3</OMI>
			</OMA>
			<OMA>
				<OMS cd="polyd1" name="term"/>
				<OMI> 3</OMI>
				<OMI> 2</OMI>
			</OMA>
			<OMA>
				<OMS cd="polyd1" name="term"/>
				<OMI> 2</OMI>
				<OMI> 1</OMI>
			</OMA>
			<OMA>
				<OMS cd="polyd1" name="term"/>
				<OMI> 1</OMI>
				<OMI> 0</OMI>
			</OMA>
		</OMA>
	</OMA>
</OMOBJ>
gap> # Calling SCSCP services
gap> chrystal := "chrystal.mcs.st-and.ac.uk";
"chrystal.mcs.st-and.ac.uk"
gap> PingWebService( chrystal, 26133 );
true
gap> PingStatistic( chrystal, 26133, 10 );
10 packets transmitted, 10 received, 0% packet loss, time 6ms
min/avg/max = [ 0, 3/5, 1 ]
gap> EvaluateBySCSCP( "Factorial", [ 10 ], chrystal, 26133 );
rec( object := 3628800, attributes := [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ] )
gap> EvaluateBySCSCP( "WS_factorial", [ 10 ], chrystal, 26133 );
rec( object := "3628800", attributes := [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ] )
gap> SetInfoLevel( InfoSCSCP, 4 );
gap> EvaluateBySCSCP( "Factorial", [ 10 ], chrystal, 26133 );
#I  Creating a socket ...
#I  Connecting to a remote socket via TCP/IP ...
#I  Got connection initiation message
#I  <?scscp service_name="GAP" service_version="4.dev" service_id="chrystal.mcs.st-and.ac.uk:26133:25745" scscp_versions="1.1" ?>
#I Composing procedure_call message: 
<?scscp start ?>
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>chrystal.mcs.st-and.ac.uk:26133:25745</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_call"/>
			<OMA>
				<OMS cd="SCSCP_transient_1" name="Factorial"/>
				<OMI> 10</OMI>
			</OMA>
		</OMA>
	</OMATTR>
</OMOBJ>
<?scscp end ?>
#I  Request sent ...
#I  Waiting for reply ...
#I  <?scscp start ?>
#I Received message: 
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>chrystal.mcs.st-and.ac.uk:26133:25745</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_completed"/>
			<OMI> 3628800</OMI>
		</OMA>
	</OMATTR>
</OMOBJ>
#I  <?scscp end ?>
#I  Got back: object 3628800 with attributes [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ]
rec( object := 3628800, attributes := [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ] )
gap> EvaluateBySCSCP( "WS_factorial", [ 10 ], chrystal, 26133 );
#I  Creating a socket ...
#I  Connecting to a remote socket via TCP/IP ...
#I  Got connection initiation message
#I  <?scscp service_name="GAP" service_version="4.dev" service_id="chrystal.mcs.st-and.ac.uk:26133:25745" scscp_versions="1.1" ?>
#I Composing procedure_call message: 
<?scscp start ?>
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>chrystal.mcs.st-and.ac.uk:26133:25745</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_call"/>
			<OMA>
				<OMS cd="SCSCP_transient_1" name="WS_factorial"/>
				<OMI> 10</OMI>
			</OMA>
		</OMA>
	</OMATTR>
</OMOBJ>
<?scscp end ?>
#I  Request sent ...
#I  Waiting for reply ...
#I  <?scscp start ?>
#I Received message: 
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>chrystal.mcs.st-and.ac.uk:26133:25745</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_completed"/>
			<OMSTR>3628800</OMSTR>
		</OMA>
	</OMATTR>
</OMOBJ>
#I  <?scscp end ?>
#I  Got back: object 3628800 with attributes [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ]
rec( object := "3628800", attributes := [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ] )
gap> EvaluateBySCSCP( "WS_IdGroup", [ SymmetricGroup(3) ], chrystal, 26133 );
#I  Creating a socket ...
#I  Connecting to a remote socket via TCP/IP ...
#I  Got connection initiation message
#I  <?scscp service_name="GAP" service_version="4.dev" service_id="chrystal.mcs.st-and.ac.uk:26133:25745" scscp_versions="1.1" ?>
#I Composing procedure_call message: 
<?scscp start ?>
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>chrystal.mcs.st-and.ac.uk:26133:25745</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_call"/>
			<OMA>
				<OMS cd="SCSCP_transient_1" name="WS_IdGroup"/>
				<OMA>
					<OMS cd="group1" name="Group"/>
					<OMA>
						<OMS cd="permut1" name="permutation"/>
						<OMI> 2</OMI>
						<OMI> 3</OMI>
						<OMI> 1</OMI>
					</OMA>
					<OMA>
						<OMS cd="permut1" name="permutation"/>
						<OMI> 2</OMI>
						<OMI> 1</OMI>
					</OMA>
				</OMA>
			</OMA>
		</OMA>
	</OMATTR>
</OMOBJ>
<?scscp end ?>
#I  Request sent ...
#I  Waiting for reply ...
#I  <?scscp start ?>
#I Received message: 
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>chrystal.mcs.st-and.ac.uk:26133:25745</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_completed"/>
			<OMA>
				<OMS cd="linalg2" name="vector"/>
				<OMI> 6</OMI>
				<OMI> 1</OMI>
			</OMA>
		</OMA>
	</OMATTR>
</OMOBJ>
#I  <?scscp end ?>
#I  Got back: object [ 6, 1 ] with attributes [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ]
rec( object := [ 6, 1 ], attributes := [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ] )
gap> IdGroup(SymmetricGroup(3));
[ 6, 1 ]
gap> EvaluateBySCSCP( "GroupIdentificationService", [ [ (1,2,3), (2,3) ] ], chrystal, 26133 ); 
#I  Creating a socket ...
#I  Connecting to a remote socket via TCP/IP ...
#I  Got connection initiation message
#I  <?scscp service_name="GAP" service_version="4.dev" service_id="chrystal.mcs.st-and.ac.uk:26133:25745" scscp_versions="1.1" ?>
#I Composing procedure_call message: 
<?scscp start ?>
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>chrystal.mcs.st-and.ac.uk:26133:25745</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_call"/>
			<OMA>
				<OMS cd="SCSCP_transient_1" name="GroupIdentificationService"/>
				<OMA>
					<OMS cd="list1" name="list"/>
					<OMA>
						<OMS cd="permut1" name="permutation"/>
						<OMI> 2</OMI>
						<OMI> 3</OMI>
						<OMI> 1</OMI>
					</OMA>
					<OMA>
						<OMS cd="permut1" name="permutation"/>
						<OMI> 1</OMI>
						<OMI> 3</OMI>
						<OMI> 2</OMI>
					</OMA>
				</OMA>
			</OMA>
		</OMA>
	</OMATTR>
</OMOBJ>
<?scscp end ?>
#I  Request sent ...
#I  Waiting for reply ...
#I  <?scscp start ?>
#I Received message: 
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>chrystal.mcs.st-and.ac.uk:26133:25745</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_completed"/>
			<OMA>
				<OMS cd="linalg2" name="vector"/>
				<OMI> 6</OMI>
				<OMI> 1</OMI>
			</OMA>
		</OMA>
	</OMATTR>
</OMOBJ>
#I  <?scscp end ?>
#I  Got back: object [ 6, 1 ] with attributes [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ]
rec( object := [ 6, 1 ], attributes := [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ] )
gap> IdGroup( Group( (1,2,3), (2,3) ) );
[ 6, 1 ]
gap> Read("~/scscp/tst/id512.g");
gap> G := DihedralGroup( IsPermGroup, 512 );
<permutation group with 2 generators>
gap> IdGroup512( G );
#I  Creating a socket ...
#I  Connecting to a remote socket via TCP/IP ...
#I  Got connection initiation message
#I  <?scscp service_name="GAP" service_version="4.dev" service_id="localhost:26133:1372" scscp_versions="1.1" ?>
#I Composing procedure_call message: 
<?scscp start ?>
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>localhost:26133:1372</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_call"/>
			<OMA>
				<OMS cd="SCSCP_transient_1" name="IdGroup512ByCode"/>
				<OMI> 2940208627577393070560341803949986912431725641726</OMI>
			</OMA>
		</OMA>
	</OMATTR>
</OMOBJ>
<?scscp end ?>
#I  Request sent ...
#I  Waiting for reply ...
#I  <?scscp start ?>
#I Received message: 
<OMOBJ>
	<OMATTR>
		<OMATP>
			<OMS cd="scscp1" name="call_ID"/>
			<OMSTR>localhost:26133:1372</OMSTR>
		</OMATP>
		<OMA>
			<OMS cd="scscp1" name="procedure_completed"/>
			<OMA>
				<OMS cd="list1" name="list"/>
				<OMI> 512</OMI>
				<OMI> 2042</OMI>
			</OMA>
		</OMA>
	</OMATTR>
</OMOBJ>
#I  <?scscp end ?>
#I  Got back: object [ 512, 2042 ] with attributes [ [ "call_ID", "localhost:26133:1372" ] ]
[ 512, 2042 ]
gap> SetInfoLevel( InfoSCSCP, 0 );
gap> IdGroup512( G );
[ 512, 2042 ]
gap> Working with remote objects
gap> S := SymmetricGroup( 3 );
Sym( [ 1 .. 3 ] )
gap> S1 := StoreAsRemoteObject( S, chrystal, 26133 );
< remote object TEMPVarSCSCP@chrystal.mcs.st-and.ac.uk:26133 >
gap> EvaluateBySCSCP( "WS_IdGroup", [ S1 ], chrystal, 26133 );         
rec( object := [ 6, 1 ], attributes := [ [ "call_ID", "chrystal.mcs.st-and.ac.uk:26133:25745" ] ] )
gap> GeneratorsOfGroup( S );
[ (1,2,3), (1,2) ]
gap> List( [1..4], i -> EvaluateBySCSCP( "PointImages", [ S1, i ], chrystal, 26133 ).object );
[ [ 2 ], [ 1, 3 ], [ 1, 3 ], [ 4 ] ]
gap> RetrieveRemoteObject( S1 );
Group([ (1,2,3), (1,2) ])
gap> UnbindRemoteObject( S1 );
true
gap>