(2022>README,1,5)+literate code for problem 1 rewrite,~minor changes to 5

Making README.org a literate document for my code to better describe
my process.

2022/puzzle-5.lisp

@@ -100,12 +100,13 @@ define this operation first!  |#
   (with-input-from-string (s instructions)
     (loop
       for line = (read-line s nil)
-      until (null line)
+      while line
       collect
       ;; Parse each instruction then move the crates!
       (destructuring-bind (n a b) (parse-instruction-str line)
         (move-crates n a b)))))
 
+;; The answer is simply the first top of each stack
 (defun first-round ()
   (setq state (default-state))
   (parse-initial-state)