(DEFUN read()
(SETQ l NIL)
(LOOP
    (UNLESS (NULL l) (SETQ LST1 (LIST (READ l)(READ l)(READ l)(READ l)(READ l)(READ l)(READ l)(READ l)(READ l))
                        LST2 (LIST (READ l)(READ l)(READ l)(READ l)(READ l)(READ l)(READ l)(READ l)(READ l))
                        eb (LST1) em (LST2))
    (CLOSE l) (RETURN (aestrella LST1 LST2)))
    (SETQ l (OPEN filename :if-does-not-exist nil))))