sklej([],X,X).
sklej([X|L1],L2,[X|L3]) :-
	sklej(L1,L2,L3).

start:- scan(36,10,[J])	.

scan(Deg, I, [T]) :-
	I>0,
	I2 is I-1,
	nxt_ultrasonic(Y),
	sklej(T,Y,T1),
	nxt_rotate(200,Deg),	
	scan(Deg, I2, T1).
	
scan(Deg, I, [T]) :-
	I = 0,
	go(10, 36, 10).

go(Odl, Deg, I, [T|P]) :-
	nxt_sound(D),
	D>10,
	I2 is I-1,
	nxt_ultrasonic(X),
	X > T-10,
	X < T+10,	
	nxt_go_cm(200,X).

go(Odl, Deg, I, [T|P]) :-
	nxt_sound(D),
	D>10,
	I2 is I-1,
	nxt_ultrasonic(X),
	X < T-10,
	X > T+10,	
	go(Odl,Deg,I2,P).