lisp functions to do simple physics