laps(pille, aleksander).
laps(jaagup, pille).
laps(toomas, jaagup).
laps(paula, jaagup).

uuring1():-
  open('vastus5.txt', write, F1),
  laps(Kes, jaagup),
  writeln(F1, Kes), false, close(F1) ;
  halt(0).

uuring2():-
  open('sisend5.txt', read, F2),
  read_term(F2, Isik, []),
  laps(Kes, Isik),
  writeln(Kes), false; halt(0).

uuring3():-
  current_prolog_flag(argv, Argv),  writeln(Argv), false.