BEGIN {
    print "=== Simple findIndex Debug ==="
}

RAWK {
    $is_positive_test = (x) -> {
        return x > 0;
    };
}

{
    # Simple test data
    data[1] = -1;
    data[2] = 0;
    data[3] = 5;
    
    print "Data:";
    for (i = 1; i <= 3; i++) {
        result = is_positive_test(data[i]);
        print "  data[" i "] = " data[i] " (positive: " result ")";
    }
    
    # Manual findIndex
    print "Manual findIndex:";
    for (i = 1; i <= 3; i++) {
        if (is_positive_test(data[i])) {
            print "  First positive at index " i;
            break;
        }
    }
    
    print "Test completed";
    exit 0;
}