; Print out underlying structure of LISP data
(define (pl tab L) (progn (princ tab) (prin1 L) (terpri) "Ok"))

(define (show L) (pcxrt  "r = " L ))

(define (pcxrt tab L)
 (cond ( (NULL L) (pl (strcat "c" tab ) L) )
       ( (atom L) (pl (strcat "c" tab ) L) )
       (     T    (progn
			(pl (strcat "c" tab) L)
			(pcxrt (strcat "a" tab ) (car L))
			(pcxrt (strcat "d" tab ) (cdr L))
		 )
	)
))