Make_applicative_id.Let_syntax
val return : 'a -> 'a result
val (<*>) : ( 'a -> 'b ) result -> 'a result -> 'b result
val (<*) : 'a result -> unit result -> 'a result
val (*>) : unit result -> 'a result -> 'a result
val (>>|) : 'a result -> ( 'a -> 'b ) -> 'b result
module Let_syntax : sig ... end