Observer.Activity
type t =
| Entry
| BeforeTimers
| BeforeSources
| BeforeWaiting
| AfterWaiting
| Exit
type select =
| Only of t list
| All
val to_string : t -> string