;;; -*- logo -*-

to arraytolist :array [:dim count :array] [:limit :dim + first :array]
op cascade :dim [fput item (:limit - #) :array ?] []
end

bury "arraytolist
