Parse words
1234567891011121314151617
% escript will ignore the first line
main(_) ->
teg("This is a sentence").
teg(X) ->
teg(X,[]).
teg([],L) ->
io:format(L),
io:format("\\");
teg([H|T],L) when [H] =:= " " ->
io:format(L),
io:format("|"),
teg(T,[]);
teg([H|T],L) ->
teg(T,L ++ [H]).
Erlang
INFO