Imports System

Module DieApplication

  Sub Main()
    Dim D1 as new Die()
    Dim D2 as new Die()
    D1.Toss()
    Console.WriteLine(D1)
    Console.WriteLine()

    For i as Integer = 1 To 10
      D2.Toss()
      Console.WriteLine(D2)
    Next i
  End Sub 

End Module