(with-open-file (s "./input.txt")

(with-open-file (s "./rnput.txt")

(defmacro move-boxes (command stacks)

(defmacro move-boxes-9000 (command stacks)

(defmacro move-boxes-9001 (command stacks)
  (let (
	(tmp (gensym))
	(cnt (gensym))
	(src (gensym))
	(dst (gensym))
	(source-stack (gensym)))
  `(let ((,tmp (loop
		 for start = 0 then (1+ split)
		 for split = (position #\   ,command :start start)
		 when (and (null split) (not (= start (length ,command))))
		 collect (subseq ,command start)
		 while split
		 when (> split start) collect (subseq ,command start split))))
     (let ((,cnt (parse-integer (second ,tmp)))
	   (,src (- (parse-integer (fourth ,tmp)) 1))
	   (,dst(- (parse-integer (sixth ,tmp)) 1)))
       (let ((,source-stack (nth ,src ,stacks)))
	 (setf (nth ,dst ,stacks) (append (subseq ,source-stack 0 ,cnt) (nth ,dst ,stacks)))
	 (setf (nth ,src ,stacks) (subseq ,source-stack ,cnt)))))))

	  do (progn (move-boxes cmd stacks)))

	  do (progn (move-boxes-9000 cmd stacks)))
    (mapcar #'(lambda (c)(format t "~c" c)) (mapcar #'car stacks))))
(defun part-two ()
  (let ((stacks (parse-drawing *drawing**)))
    (loop for cmd in *cmds*
	  while cmd
	  do (progn (move-boxes-9001 cmd stacks)))

;(print (macroexpand-1 '(move-boxes-9001 cmd stacks)))

(format t "~%Part Two: ")
(part-two)