USE: specialized-arrays.functor IN: specialized-arrays.double << "double" define-array >>