sub DumpDoc
{
    my $doc = shift;
    return
        map +( $_->Name, [ @{ $_->Values } ] ),
        @{ sort { $a cmp $b } $doc->Items };
}

Function GetFirstDocument( DC as NotesDocumentCollection, N As Long ) As NotesDocument
    Dim Doc As NotesDocument
    Dim Count As Long

    If N < 1 Then Exit Function

    Set Doc = DC.GetFirstDocument
    Select Case N
    Case 1
        Set GetFirstDocument = Doc
    Case Else
        While Not Doc Is Nothing And Count < N
            Set Doc = DC.GetNextDocument( Doc )
            Count = Count + 1
        Wend
    End Select

    Set GetFirstDocument = Doc
End Function