1 (defmodule TRIP (export deftemplate trips) (import FISH deftemplate menu) (import WEATHER deftemplate acceptable_condition))
 2 
 3 (deftemplate TRIP::all_trips
 4     (slot location ) (slot method) (multislot species) (slot desireability) (slot check (type INTEGER))
 5 )
 6 (deftemplate TRIP::table
 7    (slot location) (slot method)
 8    )
 9 
10 (deftemplate TRIP::trips
11     (slot location ) (slot method) (multislot species) (slot desireability)
12 )
13 
14 (deftemplate TRIP::spec_tmp (multislot spec) )
15 (deftemplate TRIP::print_report (slot value) )
16 (deffacts TRIP::inital
17    (spec_tmp)
18    (sum 0)
19    (print_report (value off))
20 )
21