Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim uc1 As New uCalc()
      Dim uc2 As New uCalc()
      
      Dim t1 As New uCalc.Transformer(uc1)
      Dim t2 As New uCalc.Transformer(uc2)
      
      Dim tokens1 = t1.Tokens
      Dim tokens2 = t2.Tokens
      
      Dim parent1 = tokens1.uCalc
      Dim parent2 = tokens2.uCalc
      
      Console.WriteLine($"tokens1 belongs to uc1: {parent1.Handle() = uc1.Handle()}")
      Console.WriteLine($"tokens2 belongs to uc2: {parent2.Handle() = uc2.Handle()}")
      Console.WriteLine($"tokens1 does not belong to uc2: {parent1.Handle() <> uc2.Handle()}")
   End Sub
End Module