-module(n). -export([m/0]). m()->io:format(f(io:get_line(""))). 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.