-module test.
-export[m/0].
f([A,B|Z])->[A|if A+1<B->f([A+1,B|Z]);A-1>B->f([A-1,B|Z]);true->f([B|Z])end];f(Z)->Z.
m()->io:fwrite(f(io:get_line(""))).