Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.Text = "A"
      
      '// Pass 0 will change 'A' to 'B'
      Dim pass0 = t.Pass(0)
      pass0.FromTo("A", "B")
      
      '// Pass 1 will receive 'B' and change it to 'C'
      Dim pass1 = t.Pass(1)
      pass1.FromTo("B", "C")
      
      t.Transform()
      Console.WriteLine(t) '// The final output is 'C'
   End Sub
End Module