setup :-
    seeing(S),
    see('c:/people.txt'),
    read_data,nl,
    write('data read'),
    nl,
    seen,
    see(S).
read_data:-
    read(A),
    process(A).
process(A) :- A == end_of_file.
process(A) :-
    A \== end_of_file,
    write('1'),
    read(B),write(B),
    %read(C),
    %read(D),
    %read(E),
    assertz(person(A,B)),
    read_data.