let
green t = t.color <-
`
Green
;
Lwt
.wakeup_exn t.lwt_u
Lwt
.
Canceled