Lisp Gigasecond exercise