(STRATEGY
    INNERMOST)

(VAR
    N X XS)
(DATATYPES
    A = µX.< cons(X, X), n__from(X), s(X), 0 >)
(SIGNATURES
    from :: [A] -> A
    after :: [A x A] -> A
    activate :: [A] -> A)
(RULES
    from(X) -> cons(X,n__from(s(X)))
    after(0(),XS) -> XS
    after(s(N),cons(X,XS)) ->
      after(N,activate(XS))
    from(X) -> n__from(X)
    activate(n__from(X)) -> from(X)
    activate(X) -> X)