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

y=extract(source(o),dim,range);
