start_carsten :-
    reset_gensym(cluster),
    reset_gensym(super_cluster),
    reset_gensym(causal_group),
    clear_all,
    find_naive_dependencies,
    find_clusters,
    find_super_clusters,
    find_causal_groups,
    find_actuators.

start :-
    reset_gensym(cluster),
    reset_gensym(super_cluster),
    clear_all,
    find_naive_dependencies,
    find_clusters,
    find_super_clusters,
    find_actuators.

benchmark :-
    numlist(1, 5, NumList),
    profile(
	forall(
	    member(Number, NumList),
	    autobuild:find_naive_dependencies
	)
    ),
    profile(
	forall(
	    member(Number, NumList),
	    hylke:find_naive_dependencies
       )
    ).


kaspar1 :-
    numlist(1, 5, X),
    findall(
	Number,
	( 
	    member(A, X),
	    Number is A + 5 
	),
	Numbers
    ),
    format('~w\n', [Numbers]).

kaspar2([], Terug, Terug).
kaspar2([Head|Tail], Tijdelijk, Terug) :-
    TijdelijkNieuw is Tijdelijk + Head,
    kaspar2(Tail, TijdelijkNieuw, Terug).