anchor.diff:  (defun die ()
     (format t "The game configuration format is wrong.~%")
     (format t "Smaller discs go on top of the bigger ones.~%")
  -  (abort)) ; TODO: is this abort correct???
  +  (abort))
   
   ; ask the user for a filename
   (defun get-filename ()
  
positive.code:     (cond
        ((= x 1) (get-conf-keyboard))
        ((= x 2) (read-from-file (read)))
        (t return))))
  
negative.code: 
  ; the main move function. Moves from list a to b if possible
  (defun move-disc (a b)
    (if (and
          (not (null a))
          (< (first a) (first b)))
      (push (pop a) b)
      (format t "Your move was illegal. ~%"))
  
  ; TODO: can we set an alias to those (gethash :B stacks) things for easier access?
  ; function to start them all. main?
  