solve-problem(S):
		while not empty( S ) do begin
			Apply algorithm to next element of sequence S;
			Advance S
			end;
		End-Action