:- object(singletons(L)).
		
	predicate(A) :-
		write(C).
	
:- end_object.