begin %DATALOG%


Temp(paintingprice) :- painting(paintingpnum,paintingtitle,paintingprice,paintingid).

max_temp(MAX(evalfunction)) :-Temp(paintingprice), paintingprice- evalfunction = - 0.

qe(paintingtitle,paintingprice) :- painting(paintingpnum,paintingtitle,paintingprice,paintingid) , max_temp(maxtemp),paintingprice - maxtemp >= 0.



end %DATALOG%