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: (defun get-conf-keyboard ()
    (format t "Rods: 3 (A, B, C)~%Discs: 5 (sizes: 1,2,3,4,5)~%")
    (format t "Please type the number of the corresponding discs you want in rod A. Type 0 when done.~%")
    (loop
      (let ((x))
        (setf x (read))
  
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?
  