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 = -1 * Long.MaxValue

        For Each v As Long In New Long() {A + B, A - B, A * B}
            ans = Math.Max(ans, v)
        Next

        Console.WriteLine(ans)

    End Sub
End Module