Function Compose

Part of:

package metabang.utilities
( compose &rest < fns > )
Return a function that is the composition of fn1 and fn2. I.e.,
(compose f1 f2)[x] == (f1 (f2 [x]])).