An example program calling a lisp function from c