(load "../1/b/tricks.lisp")

(defun any (l)
  (elt l
       (randi 
	(length l))))

(let (objects edges nodes)
  (defun promote ()
    (setf *edges* edges
	  *nodes* nodes
	  *objects* objects))
  (defun reset-universe (&optional (resetseed t))
    (setf objects nil
	  edges   nil
	  nodes   nil)
    (if resetseed
	(reset-seed)))
  (defun manyobj (&optional (n 10) (x "bottle"))
    (dotimes (i n objects)
      (anyobj x)))
  (defun anyobj (&optional (x "bottle"))
    (let ((new (gensym (string-upcase x))))
      (push new objects)))
)

(defun demo-kee (a b c &key (d 1 )  (f 3) (e 2))
  (list a b c d e f))

(defun ordered (&rest l)
  (apply #'< l))