-module m.
-export[m/0].
m()->G={io,get_line},lists:foldl(fun(B,A)->G(if A rem B<1->[B];0<1->D=abs(B-A)div(B-A),lists:seq(A+D,B,D)end),B end,0,G("")).