 
 (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))

                         (number-to-string (kasumi-orig-point (point))))
    ;; (kasumi-refresh (point-min) (point-min) 0)
  ))


(defun kasumi-surface ()
  (interactive)

  (take-nth-sub l n '()))
(defun string-join (lis sep)
  (mapconcat 'identity lis sep))
(defun string-rstrip (s)
  (replace-regexp-in-string "\\'[ \r\n\t]*" "" s))
(defun string-lstrip (s)
  (replace-regexp-in-string "[ \r\n\t]*\\'" "" s))
(defun string-strip (s)
  (string-lstrip (string-rstrip s)))


;; http://www.gnu.org/software/emacs/manual/html_node/elisp/Asynchronous-Processes.html#Asynchronous-Processes
(defun kasumi-start-shiranui (program)
