(STRATEGY
    INNERMOST)

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