(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload '(:yason
                  :alexandria
                  :fwoar.lisputils)))

(defun group (break lis)
  (loop with result = (list)
     for (key . val) in lis
     when (equal key break) do (push () result)
     do (push (cons key val) (car result))
     finally (return result)))

(defun group-by-first (lis)
  (group (caar lis) lis))

(defun collect-pairs (reader)
  (loop for line = (funcall reader *standard-input* nil)
     while line
     for parts = (fwoar.string-utils:split #\space line :count 2)
     collect (fw.lu:vector-destructuring-bind (key val) parts
               (cons key val))))

(let* ((lines '("TITLE foo" "URL bar" "TITLE baz" "URL qwer" nil))
       (cur lines))
  (defun reader (&rest r)
    (declare (ignore r))
    (when (null cur)
      (setf cur lines))
    (prog1 (car cur)
      (setf cur (cdr cur)))))

(defun main (&optional (reader 'read-line))
  (yason:with-output (*standard-output* :indent t)
    (yason:with-array ()
      (apply 'yason:encode-array-elements
             (mapcar 'alexandria:alist-hash-table
                     (group-by-first
                      (collect-pairs reader)))))))


(defun dump ()
  (sb-ext:save-lisp-and-die "jsonifier" :toplevel 'main :executable t))