
  $ cat > js-bind.ml << "EOF"
  > let assigned_to u =
  >   Deferred.List.filter (Request_util.requests ()) ~f:(fun request ->
  >     if _
  >     then _
  >     else
  >       status_request ~request () ~msg_client:no_msg >>= fun status ->
  >       not (up_to_date_user status u))
  > 
  > 
  > 
  > let old_good =
  >   foo bar qaz *>>= fun x ->
  >   hey ho lala *>>= fun y ->
  >   return (x,y)
  > 
  > let old_good =
  >   foo bar qaz +>>= fun x ->
  >   hey ho lala +>>= fun y ->
  >   return (x,y)
  > 
  > (* generalizations based on Tuareg code *)
  > let old_good =
  >   foo bar qaz *>>| fun x ->
  >   hey ho lala *>>> fun y ->
  >   foo bar qaz +>>| fun x ->
  >   hey ho lala +>>> fun y ->
  >   return (x,y)
  > EOF

  $ ocp-indent -c JaneStreet js-bind.ml
  let assigned_to u =
    Deferred.List.filter (Request_util.requests ()) ~f:(fun request ->
      if _
      then _
      else
        status_request ~request () ~msg_client:no_msg >>= fun status ->
        not (up_to_date_user status u))
  
  
  
  let old_good =
    foo bar qaz *>>= fun x ->
    hey ho lala *>>= fun y ->
    return (x,y)
  
  let old_good =
    foo bar qaz +>>= fun x ->
    hey ho lala +>>= fun y ->
    return (x,y)
  
  (* generalizations based on Tuareg code *)
  let old_good =
    foo bar qaz *>>| fun x ->
    hey ho lala *>>> fun y ->
    foo bar qaz +>>| fun x ->
    hey ho lala +>>> fun y ->
    return (x,y)
