% timm tricks

some(N,X) :-
	between(1,N,_),
	one(X).

one(X) :-
	once(any(X)).

any(X) :-
	setof(R/X,(X,R is random(1000)),L),
	member(_/X,L).
map(P,L) :- findall(One,(member(One,L), call(P,One)),L).