1 (defun make-deque ()
2   (cons '() '()))
3 (defun front-ptr (deque)
4   (car deque))