main :- 
    print(ready),nl,ignore(demos),halt.

demos :-
		demos1, demos2.

demos1 :- forall(between(1,20,_),demo1).
demos2 :- forall(between(1,20,_),demo2).

demo1 :-
	verbphrase(VP1,[]),
	golorp(verbphrase(VP2,[])),
	format('\n1 : ~p\n2 : ~p\n',[VP1,VP2]).



demo2 :-
	sentence(Sentence1,[]),
	golorp(sentence(Sentence2,[])),
	format('\n1 : ~p\n2 : ~p\n',[Sentence1,Sentence2]).


makeCache(This,cache(Term,This,What)) :-
  		Term =.. [This,[What|X],X].

% add your code below for sisterals sisteral auntals and auntal