(ql:quickload :parenscript)
 
 (defpackage :ps_translator
   (:use :parenscript :cl)
   (:export main))
 
 (in-package :ps_translator)
 (use-package :parenscript)
 
 (defpsmacro macros (&body body)
   `(lisp (progn
            ,@(loop for form in body
                    collect `(defpsmacro ,@form))
            "")))
 
 (defmacro+ps $ ( (selector) &rest values) `(chain (j-query ,selector) ,@values))
 
 (defmacro+ps $this (&rest values) `($ (this) ,@values))
 
 (defmacro+ps $each ((selector &rest actions) &body code)
   `($ (,selector) ,@actions
       (each (lambda ()
               ,@code))))
 
 (defmacro+ps def-event (target event args &body run)
  `($ (,target)
           (,event
             (lambda ,args
               ,@run))))
 
 (defun translate-file (infile outfile)
   (let ((*JS-TARGET-VERSION* 1.9))
     (with-open-file (o outfile :direction :output :if-exists :supersede)
       (with-open-file (i infile :direction :input)
         (write-line (ps-compile-file i) o)))))
 
 (defun main (args)
   (in-package :ps_translator)
   (apply #'translate-file (cdr args)))