(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))))