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


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