atcoder.lisp

(eval-when  (:compile-toplevel :load-toplevel :execute)
  (defun script-p ()
    (eql sb-sys:*stdin* *standard-input*))  )

(macrolet ((optimize (pred)
	     (if pred
		 `(declaim (optimize (speed 3) (debug 0) (safety 0)))
		 `(declaim (optimize (speed 0) (debug 3) (safety 3))))))
  (optimize #.(script-p)))

(defun xclip ()
  (with-output-to-string (s)
    (sb-ext:run-program "/usr/bin/xclip" '("-o") :output s)))

(defun test ()
  (with-input-from-string (*standard-input* (xclip))
    (main)))

(defun main ()
  ;; write something here
  )

(when (script-p) (main))