(define (cargar-datos nombrearchivo)
  (cond
    [(not (string? nombrearchivo)) (error "El dato ingresado debe ser una cadena de tecto que indique la ruta del archivo")]
    [else
     (local
       (
        (define (hacer-lista archivo)
          (read-words/line archivo))
        )
       (cond
         [(empty? (hacer-lista nombrearchivo)) empty]
         [else (make-persona (make-datos (fisrt (first (hacer-lista nombrearchivo)))
                                         (second (first (hacer-lista nombrearchivo)))
                                         (third (first(hacer-lista nombrearchivo))))
                             (fourth (first (hacer-lista nombrearchivo))))]
         )
       )]
    )
  )