Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      '// Pattern: Capture first, optional middle, and last names.
      '// Replacement: The block `{middle: {middle}}` ensures a leading space is only added if a middle name exists.
      t.FromTo("Name: {first:1} [{middle:1}] {last:1}",
      "User: {last}, {first}{middle: {middle}}")
      
      Console.WriteLine(t.Transform("Name: John Doe"))
      Console.WriteLine(t.Transform("Name: John Quincy Adams"))
   End Sub
End Module