% i ovo ce biti beskonacno jer se majmun radije sece nego da zgrabi
potez(stanje(P1,na_podu,P,H),
     hodaj(P1,P2),
     stanje(P2,na_podu,P,H)).
potez(stanje(sredina_sobe,na_kutiji,sredina_sobe,ne_moze),
     zgrabi,
     stanje(sredina_sobe,na_kutiji,sredina_sobe,moze)).
potez(stanje(P,na_podu,P,H),
     popni_se,
     stanje(P,na_kutiji,P,H)).
potez(stanje(P1,na_podu,P1,H),
     guraj(P1,P2),
     stanje(P2,na_podu,P2,H)).

moze_uzeti(stanje(_,_,_,moze)).

moze_uzeti(S):-
  potez(S,_,S1),
  moze_uzeti(S1).