Pocket Problem for lisp: Lists of Lists

(define pocket (lambda args
    (cond
        ((= (length args) 0)
            8
        )
        ((equal? (car args) '())
            8
        )
        ((= (length args) 1)
            (lambda argv
                (cond
                    ((= (length argv) 0)
                        (car args)
                    )
                    ((equal? (car argv) '())
                        (car args)
                    )
                    (#t
                        (pocket (car argv))
                    )
                )
            )
        )
    )
))
(display (pocket) )
(newline)
(define p (pocket 1))
(display (p)) ;1
(newline)
(define p3 (p 3))
(define p2 (p 2))
(display (p2)) ;2
(newline)
(display (p3)) ;3