: forwardDiff(l)     l right(l size 1 -) l zipWith(#-) ;
: forwardDiffN(n, l)  l #[ forwardDiff dup println ] times(n) ;