samer@0: function s=dropwhile(f,s)
samer@0: % drop - Drop elements of sequence that satisfy condition 
samer@0: %
samer@0: % drop :: (A->bool), seq A -> seq A
samer@0: 
samer@0: % if isempty(s) return s; end
samer@0: x=head(s);
samer@0: while f(x), 
samer@0: 	s=next(s); 
samer@0: 	if isempty(s), break; end
samer@0: 	x=head(s); 
samer@0: end
samer@0: 	
samer@0: