Attribute VB_Name = "SilverLetter"
Option Explicit





Sub Main()
    Const DataPath   As String = "C:\BayanContest\Practice2-SilverLetter\"
    Const InputFile  As String = DataPath & "problem2.in"
    Const OutputFile As String = DataPath & "problem2.out"

    ConvertNewLineInFile InputFile


    Dim i As Integer, count As Integer, s As String, l As Integer
    
    Open InputFile For Input As #1
    Open OutputFile For Output As #2
    
    Input #1, count
    
    For i = 1 To count
        Line Input #1, s
        l = Len(s)
        Print #2, CStr(l) + " " + Mid(s, l \ 2 + (l Mod 2), IIf(l Mod 2 <> 0, 1, 2))
    Next
    
    Close
End Sub









' Changes all EOL (end-of-line) to CrLf. for more information visit: http://en.wikipedia.org/wiki/Newline
Public Sub ConvertNewLineInFile(ByVal FileName As String)
    Dim FileNum As Integer
    FileNum = FreeFile
    
    Dim Buffer As String
    
    On Error GoTo ConvertNewLineInFile_Error
    
    Open FileName For Binary Access Read Write As FileNum
    
    Buffer = String(LOF(FileNum), 0)
    Get FileNum, , Buffer
    
    Buffer = Replace(Buffer, vbLf, vbCr)
    Buffer = Replace(Buffer, vbCr & vbCr, vbCr)
    Buffer = Replace(Buffer, vbCr & vbCr, vbCr)
    Buffer = Replace(Buffer, vbCr, vbCrLf)
    
    Put FileNum, 1, Buffer
    
ConvertNewLineInFile_Error:
    Close FileNum
End Sub