unique([]) -> [];
unique([H|T]) -> unique([H|T],[]).

unique([],Uniquelist) -> Uniquelist;
unique([H|T],Uniquelist) ->
  case lists:member(H,Uniquelist) of
    true ->
       unique(T,Uniquelist);
    false ->
      unique(T,Uniquelist ++ [H])
    end.