main.prolog


1
2
3
4
5
6
7
8
9
10
11


:- consult('map.prolog').
:- consult('agent.prolog').
:- consult('read.prolog').


init :-
    retractall(here(X)),
    asserta(here(a)), !.