(PROGN
  (RPLACD (QUOTE * )
   (QUOTE (PPFNS 
     (PROG (L1)
      (SETQ L1 L )
      (PRIN1 (QUOTE %( )DEV )
      NXT 
      
      (COND
       ((NULL L1 )
        (PRIN1 (QUOTE %) )DEV )
        (RETURN )))
      (PRINTLIST (CAR L1 )
       (PLUS I 1 )DEV )
      (TERPRI DEV )
      (SETQ L1 (CDR L1 ))
      (GO NXT )))))
  (RPLACD (QUOTE SAVE )
   (QUOTE (APVAL (* 
SAVE 
SAVE1 

      SAVE2 
SAV1 
)FEXPR (LAMBDA (L A )
      (SAV1 (CAR L )
       (CDR L ))))))
  (RPLACD (QUOTE SAVE1 )
   (QUOTE (EXPR (LAMBDA (L )
      (LIST (QUOTE RPLACD )
       (LIST (QUOTE QUOTE )L )
       (LIST (QUOTE QUOTE )
        (CDR L )))))))
  (RPLACD (QUOTE SAVE2 )
   (QUOTE (EXPR (LAMBDA (L )
      
      (PROG (INIT CURR PREV)
       
       NXT 
       
       (COND
        ((NULL L )
         (RETURN INIT )))
       (SETQ CURR (CONS (SAVE1 (
           CAR L ))))
       (COND
        ((NULL INIT )
         (SETQ INIT CURR )))
       (COND
        (PREV (RPLACD PREV CURR )))
       (SETQ PREV CURR )
       (SETQ L (CDR L ))
       (GO NXT ))))))
  (RPLACD (QUOTE SAV1 )
   (QUOTE (EXPR (LAMBDA (FILE 
       L )
      (PROG (G)
       (SETQ G (GAG NIL ))
       (OPEN 2 FILE )
       (PL (CONS (QUOTE PROGN )
         (SAVE2 L ))2 )
       (TERPRI 2 )
       (CLOSE 2 )
       (GAG G )))))))