go7(F, G) :-
    see(F),
    tell(G),
    repeat,
    read(X),
    get_seconds(T1),
    mini7(X,Y),
    get_seconds(T2),
    T3 is T2 - T1,
    write('[ '), write(T3), write(' ,'), nl,
    write(Y), nl,
    write('].'), nl,
    X == end_of_file,
    seen,
    told,
    !.
