DECLARE Count : INTEGER
DECLARE Index : INTEGER
DECLARE Text : STRING
DECLARE Extra : STRING
DECLARE Line : STRING
DECLARE Pair : STRING
DECLARE Cut : INTEGER
DECLARE Combined : STRING
DECLARE Lines : INTEGER
INPUT Count
FOR Index <- 1 TO Count
    INPUT Pair
    Cut <- 1
    WHILE MID(Pair, Cut, 1) <> " "
        Cut <- Cut + 1
    ENDWHILE
    Text <- LEFT(Pair, Cut - 1)
    Extra <- RIGHT(Pair, LENGTH(Pair) - Cut)
    OPENFILE "roundtrip.txt" FOR WRITE
    WRITEFILE "roundtrip.txt", Text
    WRITEFILE "roundtrip.txt", ""
    CLOSEFILE "roundtrip.txt"
    OPENFILE "roundtrip.txt" FOR APPEND
    WRITEFILE "roundtrip.txt", Extra
    CLOSEFILE "roundtrip.txt"
    OPENFILE "roundtrip.txt" FOR READ
    Combined <- ""
    Lines <- 0
    WHILE NOT EOF("roundtrip.txt")
        READFILE "roundtrip.txt", Line
        Combined <- Combined & "[" & Line & "]"
        Lines <- Lines + 1
    ENDWHILE
    CLOSEFILE "roundtrip.txt"
    OUTPUT Lines, ":", Combined
NEXT Index