Imports System

Public Module Module1

    Public Sub Main()

    Dim i As integer 

    For i = 1 to 7 

        Console.WriteLine("Chiefs")

    Next i

    End Sub

End Module