Imports System
'What is the 10001 st prime number?
Public Class Test
	Public Shared Sub Main()
		Pascalls_Return_n_Of_k(4,2)
	End Sub
 
	Public Function Return_Factorial_Of_n(Byval n as Integer)
		dim nFactorial as uint64 = 1
		for i as uint64 = n  to 1 step -1
			nFactorial *= i
		Next
		Return nFactorial
	End Function
 
	Public Function Pascalls_Return_n_Of_k(Byval n as int64, Byval k as int64)
		Return (Return_Factorial_Of_n(n) / (Return_Factorial_Of_n(k) * Return_Factorial_Of_n(n-k)))
	End Function
end class

SW1wb3J0cyBTeXN0ZW0KJ1doYXQgaXMgdGhlIDEwMDAxIHN0IHByaW1lIG51bWJlcj8KUHVibGljIENsYXNzIFRlc3QKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQoJCVBhc2NhbGxzX1JldHVybl9uX09mX2soNCwyKQoJRW5kIFN1YgoJCglQdWJsaWMgRnVuY3Rpb24gUmV0dXJuX0ZhY3RvcmlhbF9PZl9uKEJ5dmFsIG4gYXMgSW50ZWdlcikKCQlkaW0gbkZhY3RvcmlhbCBhcyB1aW50NjQgPSAxCgkJZm9yIGkgYXMgdWludDY0ID0gbiAgdG8gMSBzdGVwIC0xCgkJCW5GYWN0b3JpYWwgKj0gaQoJCU5leHQKCQlSZXR1cm4gbkZhY3RvcmlhbAoJRW5kIEZ1bmN0aW9uCgoJUHVibGljIEZ1bmN0aW9uIFBhc2NhbGxzX1JldHVybl9uX09mX2soQnl2YWwgbiBhcyBpbnQ2NCwgQnl2YWwgayBhcyBpbnQ2NCkKCQlSZXR1cm4gKFJldHVybl9GYWN0b3JpYWxfT2ZfbihuKSAvIChSZXR1cm5fRmFjdG9yaWFsX09mX24oaykgKiBSZXR1cm5fRmFjdG9yaWFsX09mX24obi1rKSkpCglFbmQgRnVuY3Rpb24KZW5kIGNsYXNz