Option Strict On

Module Module1

    Sub Main()
        'let'
        Dim tmp() As Long = Array.ConvertAll(Of String, Long) _
            (Console.ReadLine().Split(), AddressOf Long.Parse)
        Dim A As Long = tmp(0)
        Dim B As Long = tmp(1)

        'var
        Dim ans() As Long = New Long() {A + B, A - B, A * B}

        Array.Sort(ans)
        Array.Reverse(ans)

        Console.WriteLine(ans(0))

    End Sub
End Module