code for piecewise expressions

> f(x):=piecewise(x<2,9-x,x<=4,5+x);

> f*`'`(x) = piecewise(x<2,-1,x<=4,1);