tic <-
function()
	ticTime<<-proc.time()