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