set(Input) ->
    set(Input,[]).
set([],Acc) ->
    Acc;
set([H|T],Acc) ->
    case lists:member(H,Acc) of
	true ->
	    set(T,Acc);
	_ ->
	    set(T,[H|Acc])
    end.