First lisp function

more ...