(in-package :car)

(defun eg ()
 (let ((stobj))
  (seq stobj (reset stobj) (add-node stobj 0 0) (add-node stobj 0 1)
   (add-node stobj 1 0) (add-node stobj 1 1) 
   (add-exit stobj 1 2) (add-exit stobj 2 1))))