-module(r).
-export([m/0]).
m()->g("","").
g(S,T)->case io:get_line('')of eof->io:put_chars(S++T);U->g(U,T++S)end.