YES
(VAR x y)
(RULES
+(x,s(y)) -> s(+(x,y))
+(x,0()) -> x
*(x,0()) -> 0()
*(x,s(y)) -> +(*(x,y),x)
)