-module a.
-export[m/0].
m()->case io:get_line('') of eof->k;S->io:format("~s",[re:replace(S,"(.)(.*)(.)","\\3\\2\\1")]),m() end.