home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
lifeos2.zip
/
LIFE-1.02
/
TESTS
/
IN
/
COPY1.IN
< prev
next >
Wrap
Text File
|
1996-06-04
|
609b
|
28 lines
write('loading done')?
%%%%%%%%%% psi-terms without coreference
X=ww(a=>1,b=>2), Y=copy(X)?
.
%%%%%%%%%%% psi-termes with non cyclic coreference
B=person(id=>S:string,wife(name=>S))?
A=copy(B)?
.
N=person(id =>name( first=>string,
last=>X:string),
father=>person(id=>name(last=>X & string)))?
M=copy(N)?
%%%%%%%%%%% psi-termes with cyclic coreference
%
%A=X:person( name =>id( first=>string,
% last=>S:string),
% spouse=>person( name=>id(last=>S),
% spouse=>X))?
%B=copy(A)?