mis-list

#!/usr/bin/env escript
how_many([]) ->
    none;
how_many([_]) ->
    one;
how_many([_, _]) ->
    couple;
how_many([_, _, _]) ->
    a_few;
how_many(_) ->
    many.

show_how_many(L) ->
    io:format("how_many(~p) => ~p~n", [L, how_many(L)]).

main(_Args) ->
    show_how_many([]),
    show_how_many([1]),
    show_how_many([1,2]),
    show_how_many([1,2,3]),
    show_how_many([1,2,3,4]),
    show_how_many([1,2,3,4,5,6,7,8,9]),
    halt(0).