-module(e).
-export([m/0]).
m()->m(io:get_line([])).
m([C,_|T])->io:put_chars([C]),m(T);m([C])->m([C,C]);m(_)->k.