(STRATEGY
    INNERMOST)

(VAR
    X)
(DATATYPES
    A = < d >)
(SIGNATURES
    g :: [A] -> A
    c :: [] -> A
    h :: [A] -> A)
(RULES
    g(X) -> h(X)
    c() -> d()
    h(d()) -> g(c()))