setup :-
    seeing(S),
    see('people.txt'),
    read_data,
    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),
    read(C),
    read(D),
    read(E),
    assertz(person(A,B,C,D,E)),
    read_data.