Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      Dim grandParentRule = t.Pattern("grandparent")
      
      '// Create a child
      Dim parentTransformer = grandParentRule.LocalTransformer
      Dim parentRule = parentTransformer.Pattern("parent")
      
      '// Create a grandchild
      Dim childTransformer = parentRule.LocalTransformer
      Dim childRule = childTransformer.Pattern("child")
      
      Console.WriteLine($"Grandparent is child: {grandParentRule.IsChildRule}")
      Console.WriteLine($"Parent is child: {parentRule.IsChildRule}")
      Console.WriteLine($"Child (grandchild) is child: {childRule.IsChildRule}")
   End Sub
End Module