done:-tell('C:/people.txt'),
%write('Hello there'),
see(user),
read(X),
write(X),
nl,
told.