(VAR X Y Z )
(RULES 
        sel(s(X), cons(Y, Z)) -> sel(X, Z)
        sel(0, cons(X, Z)) -> X
        first(0, Z) -> nil
        first(s(X), cons(Y, Z)) -> cons(Y, first(X, Z))
        from(X) -> cons(X, from(s(X)))
        sel1(s(X), cons(Y, Z)) -> sel1(X, Z)
        sel1(0, cons(X, Z)) -> quote(X)
        first1(0, Z) -> nil1
        first1(s(X), cons(Y, Z)) -> cons1(quote(Y), first1(X, Z))
        quote(0) -> 01
        quote1(cons(X, Z)) -> cons1(quote(X), quote1(Z))
        quote1(nil) -> nil1
        quote(s(X)) -> s1(quote(X))
        quote(sel(X, Z)) -> sel1(X, Z)
        quote1(first(X, Z)) -> first1(X, Z)
        unquote(01) -> 0
        unquote(s1(X)) -> s(unquote(X))
        unquote1(nil1) -> nil
        unquote1(cons1(X, Z)) -> fcons(unquote(X), unquote1(Z))
        fcons(X, Z) -> cons(X, Z)
        
)