Module Main
  Sub Main
    Dim s = Console.ReadLine()
    Dim ss = s.Split(" "c)
    Dim d = CInt(ss(0))
    Dim n = CInt(ss(1))
    Dim i = 1
    Do
      	Dim x = i
      	Dim c = 0
      	Do While x Mod 100 = 0
        	x \= 100
        	c += 1
      	Loop
        If c = d Then
          n -= 1
          If n = 0 Then
            Console.WriteLine(i)
            Exit Do
          End If
        End If
		i += 1
    Loop
  End Sub
End Module
