toc <-
function()
	print(proc.time()-ticTime)