Battery Script By Common Lisp