home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / PERSON1.LF < prev    next >
Text File  |  1996-06-04  |  117b  |  6 lines
  1.  
  2. :: person(age => A:int,yob => Y:int,today => A+Y).
  3.  
  4. :: human( age => A:int, yob => Y:int, today => T:int) | T=A+Y.
  5.  
  6.