Pickin' Sticks but with coins and in Common Lisp