-module n.
-export[m/0].
m()->G={io,get_line},G(f(G(""))).
f([A,B|T])when abs(A-B)>1->f([A,(A+B)div 2,B|T]);f([H|T])->[H|f(T)];f(A)->A.