function ToString(x as *BigInteger) {
	with x,"toString" as ret
	=ret	
}
Function PowerTen(x as integer) {
	a=Biginteger("10")
	method a, "intPower", biginteger(str$(x,"")) as a
	=a
}
a=bigInteger("2988348162058574136915891421498819466320163312926952423791023078876139")
b=biginteger("2351399303373464486466122544523690094744975233415544072992656881240319")
profiler
	method a, "modpow", b, PowerTen(40) as result
print timecount
Print ToString(result)