shavin beefalos in common lisp