-module(test).
-export([m/0]).
m()->X=g(),p(X),p([10|m(X)]).
m(L)->case g()of eof->L;M->p(M),m(s(L,M))end.
s([A,B,C|T],[_,$-|Z])->[C,B|s([A|T],Z)];s([A,B|T],[_,_|Z])->[A,B|s(T,Z)];s(L,_)->L.
g()->io:get_line("").
p(X)->io:put_chars(X).