This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
2018-10-13 08:42:41 +01:00
|
|
|
2:- use_module( library(lineutils) ).
|
|
|
|
|
3
|
|
|
|
|
4main :-
|
|
|
|
|
5 unix(argv[Dir,Out]),
|
|
|
|
|
6 open(Out,write,O),
|
2016-02-20 21:50:06 +00:00
|
|
|
|
2018-10-13 08:42:41 +01:00
|
|
|
7 go(Dir,O).
|
|
|
|
|
9go(Dir,O) :-
|
2016-02-20 21:50:06 +00:00
|
|
|
|
