open Functoria.DSL

type sleep = job

val sleep : sleep typ
val default_sleep : sleep impl
val no_sleep : sleep impl