let sub t span = t -. (Span.to_sec span)