Evaluated proc scinot num {format %.2E $num;}