Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      '// Replace every string literal with a placeholder
      t.FromTo("{@String}", """[REDACTED]""")
      
      Dim log As String = "UserLogin(id: 101, pass: 'secret123', name: ""Admin"")"
      Console.WriteLine(t.Transform(log))
   End Sub
End Module