(STRATEGY
    INNERMOST)

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