Parse words

% 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]).