(ge (make-top-level-environment))

(load "load")

(define sys
  (amord:make-system))

(amord:load-rdf-assumptions "../s9/run/s9-log.n3" sys)

;(set! trace-match? #t)
(amord:trace sys)

(load-policy-file "../s9/run/s9-policy.n3" sys)

;(amord:run-one-action sys)
(amord:run sys)

(write-rdf/turtle (make-rdf-graph (%scheduler-beliefs (amord:scheduler sys)))
		  (current-output-port))

;(write-rdf/turtle (amord:pattern-graph
;		   (amord:rule-pattern
;		    (car (%scheduler-rules (amord:scheduler sys)))))
;		  (current-output-port))