function bahn_with_any( self::Ptr{Void}, element::Ptr{Void}, generators::Ptr{Void},
                                action::Ptr{Void} )
    work_set = [reinterpret(Int,element)]
    return_set = [reinterpret(Int,element)]
    generator_length = gap_LengthPlist(generators)
    const xx = i->j->i==j
    while length(work_set) != 0
        current_element = pop!(work_set)
        for current_generator_number = 1:generator_length
            current_generator = gap_ListElement(generators,current_generator_number)
            current_result = reinterpret(Int,gap_CallFunc2Args(action,
                                        reinterpret(Ptr{Void},current_element),current_generator))::Int
            if ! any( xx(current_result), return_set )
                push!( work_set, current_result )
                push!( return_set, current_result )
            end
        end
    end
    return gap_True
end