' Function Example

' Define and test a function to square a number.
' Can you reduce the body of Main and Square 
' to one line each?

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim x As Integer = 5
        Dim y As Integer

        y = Square(x)
        WriteLine(y)
        ReadLine()
    End Sub

    Public Function Square(ByVal a As Integer) As Integer
        Dim b As Integer

        b = a ^ 2
        Return b
    End Function
End Module