(STRATEGY
    INNERMOST)

(VAR
    x y)
(DATATYPES
    A = µX.< 0, s(X), p(X) >)
(SIGNATURES
    + :: [A x A] -> A
    minus :: [A] -> A
    * :: [A x A] -> A)
(RULES
    +(0(),y) -> y
    +(s(x),y) -> s(+(x,y))
    +(p(x),y) -> p(+(x,y))
    minus(0()) -> 0()
    minus(s(x)) -> p(minus(x))
    minus(p(x)) -> s(minus(x))
    *(0(),y) -> 0()
    *(s(x),y) -> +(*(x,y),y)
    *(p(x),y) -> +(*(x,y),minus(y)))