module Source:sig..end
type 'a t
val create : ?eq:('a -> 'a -> bool) -> 'a -> 'a t
val set : 'a t -> 'a -> unit
val signal : 'a t -> 'a Ketrew_pure.Reactive.signal
val value : 'a t -> 'a
val modify : 'a t -> f:('a -> 'a) -> unit
val modify_opt : 'a t -> f:('a -> 'a option) -> unit
val map_signal : 'a t ->
f:('a -> 'b) -> 'b Ketrew_pure.Reactive.signal