Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t_original As New uCalc.Transformer()
      t_original.Description = "Original Transformer"
      
      '// Clone the transformer
      Dim t_cloned = t_original.Clone()
      
      Console.WriteLine($"Original Description: {t_original.Description}")
      Console.WriteLine($"Cloned Description:   {t_cloned.Description}")
      
      '// Modify the clone's description to ensure they are independent
      t_cloned.Description = "Cloned and Modified"
      
      Console.WriteLine($"Original after mod: {t_original.Description}")
      Console.WriteLine($"Cloned after mod:   {t_cloned.Description}")
   End Sub
End Module