Imports System

Module ArithmeticOperators3

    Sub main()

        Dim a1 As Decimal
        a1 = System.Decimal.MaxValue
        a1 = a1 ^ 2
        Console.WriteLine(a1)

    End Sub

End Module