common lisp poker hand evaluator