Something

unrelated(List) ->
        Store = unrelated(List, [],[]),
        Store.

unrelated([],[],Store) ->
        Store;

unrelated([],Stack,Store) ->
        io:format("arg 1: ~p\n arg 2 ~p\n", [Stack, Store]),
        unrelated(Stack, [], Store);

unrelated([H|[]],Stack,Store) ->
        if
                list(H) -> unrelated(H, Stack, Store);
                true -> unrelated([], Stack,[H|Store])
        end;

unrelated([H|T],Stack,Store) ->
        io:format("arge 0: ~p \narg 1: ~p\n arg 2 ~p\n", [[H|T], Stack, Store]),        if
                list(H) -> unrelated(H, [T | Stack] , Store);
                true -> unrelated(T, Stack, [H | Store])
        end.