1 files changed, 9 insertions, 1 deletions
diff --git a/main.prolog b/main.prolog
index 5204ef7..ddf7baa 100644
--- a/main.prolog
+++ b/main.prolog
@@ -3,9 +3,17 @@
 :- consult('map.prolog').
 :- consult('agent.prolog').
 :- consult('read.prolog').
+:- consult('item.prolog').
 
 
 init :-
-    retractall(here(X)),
+    retractall(here(_)),
     asserta(here(a)), !.
 
+
+join([X|Y],R) :-
+    join(Y,Rx),
+    atom_concat(X,Rx,R).
+join([X],R) :-
+    R = X.
+