% fastereg1.pl

`twoPi(TwoPi) :-
	TwoPi is 2*pi.

`area(R,A) :-
	twoPi(X),
	A is R * X.

`volume(H,R,V) :-
	area(R,A),
	V is H * A.

`myVolume(V) :-
	volume(10,1,V).

`combine(F,A,Val1,Val2,Term) :-
	append([F,A],[Val1,Val2],L),
	% this is a great predicate to
	% to optimize away
	Term =.. L.

`myCombine(L) :-
	combine(ff,aa,10,10,L).