(PROGN (RPLACD (QUOTE BAGLOD)
               (QUOTE (EXPR (LAMBDA NIL (PROG (B)
                                              (OPEN 1 (QUOTE BAGGINS))
                                              LOOP (SETQ B (READ 1))
                                              (COND ((ATOM B)
                                                      (PROGN (PRINT B)
                                                             (TERPRI)
                                                             (RETURN (QUOTE DONE)))))
                                              (PRINT B)
                                              (PRINT SUN)
                                              (EVAL B)
                                              (GO LOOP)))))))