LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2JVEoemhpZG9uZ0YnLyUnaXRhbGljR1EldHJ1ZUYnLyUsbWF0aHZhcmlhbnRHUSdpdGFsaWNGJy1JI21vR0YkNi1RIn5GJy9GM1Enbm9ybWFsRicvJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRj0vJSlzdHJldGNoeUdGPS8lKnN5bW1ldHJpY0dGPS8lKGxhcmdlb3BHRj0vJS5tb3ZhYmxlbGltaXRzR0Y9LyUnYWNjZW50R0Y9LyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGTC1GLDYlUSV3YW5nRidGL0YyLUknbXNwYWNlR0YkNiYvJSdoZWlnaHRHUSYwLjBleEYnLyUmd2lkdGhHRkwvJSZkZXB0aEdGVy8lKmxpbmVicmVha0dRKG5ld2xpbmVGJy1GUzYmRlVGWEZaL0ZnblElYXV0b0YnLUYsNiNRIUYnRjk=
restart:
f1:=(x)->x+3;
f2:=unapply(x+3,x);
f3:=x+3;
f4(x):=x+3;
f1(2);
f2(2);
f3(2);
f4(2);
a:=2;
g1:=(x)->x+a;
g2:=unapply(x+a,x);
g1(3);
g2(3);
a:=7;
g1(3);
g2(3);
f:=(x)->x**2+3*x+1;
slope1:=(x)->diff(f(x),x);
slope2:=unapply(diff(f(x),x),x);
plot([slope1(x),slope2(x)],x=0..3);
JSFH