(check (eq (type-of 1.0e3) type-float))