Imports System

Public Module Module1

    Sub Swap(byref X As Integer, byref Y as Integer)

        Dim T As Integer

        T=X

        X=Y

        Y=T

    End Sub

    Public Sub Main()

        Dim X As Integer

        Dim Y As Integer

        X=Console.ReadLine()

        Y=Console.ReadLine()

        Swap(X,Y)

        Console.WriteLine(X & "," & Y)

    End Sub

End Module