sig
  val ( >>= ) :
    'a Assemblage.Cmd.result ->
    ('a -> 'b Assemblage.Cmd.result) -> 'b Assemblage.Cmd.result
  val ( >>| ) :
    'a Assemblage.Cmd.result -> ('a -> 'b) -> 'b Assemblage.Cmd.result
end