let
create () =
let
lwt_t, lwt_u =
Lwt
.task ()
in
{lwt_u; lwt_t; color =
`
Red
}