(1) -> x:=coerce('x)$Expression(Expression Integer)
ground(x)
variables x
ex1:=sin(x)$Expression(Expression Integer)
kernels ex1
differentiate(ex1,'x)
numer ex1
f:=operator 'f
f(x)
opdiff:=operator(operator('%diff)$CommonOperators)$Expression(Expression Integer)
%x:=coerce('%x)$Expression(Expression Integer)
l1:=concat(concat([f(%x)],[%x]), [x])
kernel(opdiff,l1, 3)$Kernel(Expression(Expression Integer))
ex2:=coerce(%)$Expression(Expression Integer)
kernels ex1
kernels ex2
variables ex2
>> Error detected within library code: not a kernel
differentiate(f(x),'x)
kernels %