; (POP L) sets L to CDR L, returns the element removed
 
(DM POP (L)
,  (LIST 'PROG1
,  ,  (LIST 'CAR (CADR L))
,  ,  (LIST
,  ,  ,  'SETQ
,  ,  ,  (CADR L)
,  ,  ,  (LIST 'CDR (CADR L))
,  ,  ,,,)
,  ,,,)
,,,)