-module(parse_ok).

-export([parse/1]).

parse(FileName) ->
  {ok, F} = file:open(FileName, [read]),
  process(F),
  file:close(F).

process(F) ->
  process(F, io:get_line(F, '')).

process(_F, eof) ->
  ok;
process(F, Line) ->
  Tokens = string:tokens(Line, "|"),
  io:format("~p", [Tokens]),
  process(F, io:get_line(F, '')).

