 
 (defun kasumi-process-pair (list-command-loadcount-value)
   (let* ((command (car list-command-loadcount-value))
-         (lc      (string-to-number (cadr list-command-loadcount-value)))
+         (lc      (string-to-number (nth 1 list-command-loadcount-value)))
          (correct-load-count (= lc load-count))
-         (value   (caddr list-command-loadcount-value))
+         (value   (nth 2 list-command-loadcount-value))
         )
     (cond ((string= command kasumi-command-syntaxerror)
            (kasumi-receive-syntaxerror value))

  (let* ((lines (split-string str "\n"))
         (first-line (split-string (car lines) " "))
         (command-line-length (string-to-number (car first-line)))
         ;; (loadcount (string-to-number (cadr first-line)))
         (loadcount (cadr first-line))
         (command (string-join (cddr first-line) " "))
         (value-and-rest (take-nth (cdr lines) command-line-length)))
    (list command loadcount (string-join (car value-and-rest) "\n")

      '()
    (let ((command-loadcount-value-rest (kasumi-parse-sub str)))
      (cons (car (take-nth command-loadcount-value-rest 3))
            (kasumi-parse (nth 3 command-loadcount-value-rest))))))

(defun kasumi-debug-print (str)
  (let ((prev (current-buffer)))
