1 2 3 4 5 6
-module(words). -export([words/1]). words([]) -> 1; words([32|Tail]) -> 1 + words(Tail); words([_|Tail]) -> words(Tail).