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