Module Module1

    Sub Main()
        Dim readline As String
        Dim len As Integer = 0
        Dim hogehoge() As String

        hogehoge = Console.ReadLine.Split(" "c)

        Dim log As Double = Math.Log(CType(hogehoge(0), Double), CType(hogehoge(1), Double))

        Math.Ceiling(log)

        Console.WriteLine(Math.Ceiling(log))



    End Sub


End Module
