-module(many). -export([many/1]). many(X) -> case X of [] -> none; [ _ ] -> one; [ _,_ ] -> two; [ _,_,_ | _Tail] -> many end.