Create poker.lisp

Hand logic for poker.