Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using t As New uCalc.Transformer()
         '// Rule 1: Remove script tags and their content (case-insensitive, multi-line)
         t.FromTo("<script>{content}</script>", "")
         t.DefaultRuleSet.SetCaseSensitive(false).SetStatementSensitive(false)
         
         '// Rule 2: Normalize one or more whitespace characters to a single space
         t.FromTo("{@Whitespace:ws}", " ")
         
         Dim userInput As String = "  Welcome!  <SCRIPT>alert('bad');</SCRIPT>Please enjoy.  "
         
         '// Transform the input in one go and print the result
         Console.WriteLine($"Sanitized: '{t.Transform(userInput)}'")
      End Using
   End Sub
End Module