function iter(nl)
% iter		- Method of solving example problem 5.33

global ns
for k=1:nl
   react([.25*ns(5,3)/3,0,0],5,6)
   sep([0 1 1 0 0 0 0],6,[7 9])
   split([.05,.95],7,[8 4])
   mix([9 16],10)
   react(ns(9,4)*[0 .87 .065],10,11)
   mix([11 17],12)
   sep([0 0 0 0 0 1 1],12,13:14)
   sep([0 .07 0 0 0 0 0],14,[2 15])
   mix([1 2],3)
   mix([3 4],5)
end
prntmx('Flow matrix',ns,8,2)
