caqti
System.Preemptive
caqti.blocking
val detach : ('a -> 'b) -> 'a -> 'b future
val run_in_main : (unit -> 'a future) -> 'a