nwords() ->
  {ok,Data} = file:read_file("test.txt"),
  words(binary_to_list(Data)).