%% objectsimulator([[tongue, 0, 1],[oesophagus, 1, 9],[stomach, 9, 10], [stop, 10, _Blank]], 0, FoodFinalPosition).

objectsimulator(ObjectBehaviours, FoodInitialPosition, FoodInitialPosition) :-
        member(ObjectBehaviour, ObjectBehaviours),
        ObjectBehaviour = [stop, FoodInitialPosition, _Blank],
	!.
objectsimulator(ObjectBehaviours, FoodInitialPosition, FoodFinalPosition) :-
	member(ObjectBehaviour, ObjectBehaviours),
	ObjectBehaviour = [_, FoodInitialPosition, FoodNextPosition],
	objectsimulator(ObjectBehaviours, FoodNextPosition, FoodFinalPosition).