begin %gallery%
painter(id, name, phone) :- id=123, name="Rose", phone="888-4567".
painter(id, name, phone) :- id=126, name="Itero", phone="345-1122".
painter(id, name, phone) :- id=234, name="Picasso", phone="456-3345".
painter(id, name, phone) :- id=335, name="OKeefe", phone="567-8999".
painter(id, name, phone) :- id=456, name="Miro", phone="777-7777".

painting(pnum, title, price, id) :- pnum=2345, title="Wild Waters", price=245, id=126.
painting(pnum, title, price, id) :- pnum=4536, title="Sea Storm", price=8359, id=335.
painting(pnum, title, price, id) :- pnum=6666, title="Wild Waters", price=6799, id=234.
painting(pnum, title, price, id) :- pnum=7878, title="High Tide", price=98000, id=456.
painting(pnum, title, price, id) :- pnum=6789, title="Paradise", price=590000, id=234.
painting(pnum, title, price, id) :- pnum=7896, title="Faded Rose", price=145, id=123.
painting(pnum, title, price, id) :- pnum=9889, title="Sunset", price=975000, id=234.

gallery(pnum, owner) :- pnum=2345, owner="Johnson".
gallery(pnum, owner) :- pnum=6666, owner="Johnson".
gallery(pnum, owner) :- pnum=4536, owner="McCloud".
gallery(pnum, owner) :- pnum=7878, owner="McCloud".
gallery(pnum, owner) :- pnum=6789, owner="Palmer".
gallery(pnum, owner) :- pnum=7896, owner="Palmer".
gallery(pnum, owner) :- pnum=9889, owner="Palmer".
end %gallery%
