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

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

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