 ;;;          652-653 exit codes
 
 ;;; 264-645 main event loop
-;;; 263-269: exit if done
-;;; 271-306: Decide what and when to poll, based on global state
+;;;     263-269: exit if done
+;;;     271-306: Decide what and when to poll, based on global state
 
 ;;; This next piece seems like it deserves a prominent place.
 ;;; But, really, it needs to be deeply hidden from the end-programmer.
 ;;; I want it to be easy for me to change out and swap around, but
 ;;; that means no one else should ever really even need to know that
 ;;; it happens (no matter how vital it obviously is)
-;;; 307-318: Poll for incoming data
-;;;     317 XXX: keepalives
-
-;;; 444-609 handle this message if it's comprehensible: (DJB)
-;;; (in more depth)
+;;;     307-318: Poll for incoming data
+;;;         317 XXX: keepalives
+
+;;;     444-609 handle this message if it's comprehensible: (DJB)
+;;;     (in more depth)
 ;;;         445-450: boilerplate
 ;;;         452-453: short-circuiting
 ;;;         455: extract ID

;;; Internal API

;;;; Q: what else is in the reference implementation?
;;;; A:
;;;; 186-654 main
;;;          186-204 boilerplate


;;;                 Evidence:
;;;        606: /* XXX: incorporate selective acknowledgents */ (DJB)

;;;     634-643: try closing pipe to child: (DJB)
;;;         Well, maybe. If we're done with it

(defn choose-next-scheduled-time
  [{{:keys [::specs/n-sec-per-block
