samer@0: function y=extract(o,dim,range)
samer@0: % EXTRACT - Extract a sub-array 
samer@0: %
samer@0: % extract :: seq [[D]], natural, [[2]->natural]] -> [[D2]].
samer@0: 
samer@0: y=extract(source(o),dim,range);