Imports System
'What is the 10001 st prime number?
Public Class Euler_7
	Public Shared Sub Main()
		Console.Writeline("Project Euler #6")
		Console.Writeline()
		Console.Writeline("Generating...")
		Console.Writeline()
		dim answer as uint64 = 1
		dim n as integer = 13
		dim nFactor as uint64 = 1
	
			for i as uint64 = n  to 1 step -1
				nFactor *= i
			Next
			
		dim k as integer = 6
		dim kFactor as uint64 = 1
			for i as uint64 = k  to 1 step -1
				kFactor *= i
			Next
		
		dim k2 as integer = n-k		
		dim kFactor2 as uint64 = 1
			for i as uint64 = k2  to 1 step -1
				kFactor2 *= i
			Next
			
			
		kfactor *= kfactor2
		
		answer = nfactor / kfactor
		
		console.writeline("Answer is: " & answer)
	End Sub
End Class