int(zero).
int(s(X)) :- int(X).
add(X, zero, X).
add(X, s(Y), Z) :- add(s(X), Y, Z).