%
% Ex.2 return sum until it exceeds 60
%
% Haixun Wang, hxwang@cs.ucla.edu

%%
database( {
	q(P:integer, X:integer)
} ).

%%
export p(P).

%%
p(mysum<A>)<-q(P,A).

single(mysum, X, X).
multi(mysum, Ys, Yo, Y) <- Yo<60, Y=Ys+Yo.