;;; -*- logo -*-

to mdsetitem :index :array :val
setitem last :index (mditem butlast :index :array) :val
end

bury "mdsetitem
