2:- use_module( library(lineutils) ).
3
4main :-
5 unix(argv[Dir,Out]),
6 open(Out,write,O),
7 go(Dir,O).
9go(Dir,O) :-