Script started on Thu 26 Jan 2006 09:44:47 AM EST
sramsey2@albert:~/CLASSCODE/380$ gprolog
GNU Prolog 1.2.18
By Daniel Diaz
Copyright (C) 1999-2004 Daniel Diaz
| ?- [valuable].
compiling /home/faculty/sramsey2/CLASSCODE/380/valuable.pl for byte code...
/home/faculty/sramsey2/CLASSCODE/380/valuable.pl compiled, 23 lines read - 2278 bytes written, 21 ms

(2 ms) yes
| ?- father(jack,X).

X = joe

yes
| ?- grandfather(jack,X).

X = boo

yes
| ?- grandfather(boo,X).

no
| ?- father(X,y).

no
| ?- father(X,Y).

X = joe
Y = boo ? ;

X = jack
Y = joe

yes
| ?- father(X,Y).

X = joe
Y = boo ? 

yes
| ?- halt.
sramsey2@albert:~/CLASSCODE/380$ exit

Script done on Thu 26 Jan 2006 09:46:25 AM EST