Imports System

Public Module Module1

    Public Sub Main()

        dim arrFilms(0) as string

        dim squit as string = ""

        dim int as integer = 0

        dim Films as string = ""

        do until squit = "quit"

            redim arrFilms(int)

            squit = Console.Readline()

            arrFilms(int) = squit

            Films &= " " & arrFilms(int)

            int +=1

            if squit = "quit" then

            else

            console.writeline(Films)

            end if

        loop

    End Sub

End Module