/* CARS.PLG: sample cars database */
/* David Harvey 28/1/89 */

/*------------------------------------------------------ 

import by typing 
     [cars].<return>
at the prolog prompt. Each fact has the following form:

    car(make,model,date,price,doors,top_speed,consumption).

ask questions like
    ?- car(X,Y,Date,Price,_,_,_),Price < 3000.

-------------------------------------------------------*/

car(ford,cortina,1970,4000,4,90,36).
car(ford,escort,1975,2500,2,85,30).
car(porsche,carrera,1981,10000,2,130,26).
car(ford, 'model t',1926,5000,2,45,30).
car(volkswagen,beetle,1966,1650,2,75,40).
car(volkswagen,sirocco,1984,7000,2,110,36).
car(volvo, '740',1985,8000,2,95,40).
car(austin,metro,1987,6000,2,85,45).
car(austin,allegro,1988,8000,4,90,43).
car(austin,maestro,1983,2500,4,85,36).

/* EOF cars.plg */metro,1987,6000,2,85,45).
car(austin,allegro,198