#!/usr/bin/env sbcl --script
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (load "~/quicklisp/setup.lisp"))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (ql:quickload '(:cl-yaml :yason :uiop :alexandria)))
 
 (defparameter *in-file*
   (pathname (first (uiop:command-line-arguments))))
 
 (defparameter *out-file*
   (make-pathname :type "json"
                  :defaults *in-file*))
 
 (format t "~a -> ~a" *in-file* *out-file*)
 
 (defparameter *accounts-in*
   (alexandria:read-file-into-string *in-file*))
 
 (alexandria:with-output-to-file (out *out-file* :if-exists :supersede)
   (with-open-stream (out-stream (yason:make-json-output-stream out :indent t))
     (yason:encode (cl-yaml:parse *accounts-in*)
                   out-stream)))