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


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


join([X|Y],R) :-
    join(Y,Rx),
    atom_concat(X,Rx,R).
join([X],R) :-
    R = X.