Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t1 As New uCalc.Transformer()
      t1.Tokens.Description = "Original Description"
      
      '// Create a new transformer and import tokens from t1
      Dim t2 As New uCalc.Transformer()
      t2.Tokens.Add(t1.Tokens)
      
      Console.WriteLine($"t2's initial description (copied from t1): {t2.Tokens.Description}")
      
      '// Modify t2's description
      t2.Tokens.Description = "Modified Description"
      
      Console.WriteLine($"t2's new description: {t2.Tokens.Description}")
      Console.WriteLine($"t1's description remains unchanged: {t1.Tokens.Description}")
   End Sub
End Module