
  $ cat > str_else_never.ml << "EOF"
  > let () =
  >   if true then "bla" else
  >   if true then "bli" else
  >   "blo"
  > 
  > let () =
  >   if true then "bla" else
  >   if true then "bli" else
  >   begin
  >     "hop"
  >   end
  > 
  > let () =
  >   if true then "hop" else
  >   if true then "hap" else
  >   ((); "bla")
  > 
  > let () =
  >   if
  >     x
  >   then
  >     y
  >   else k,
  >        w;
  >   z
  > 
  > let () =
  >   if x then a
  >   else
  >   let y = x / 42 in
  >   y
  > 
  > let () =
  >   if x then a
  >   else if y
  >   then b
  >   else begin
  >     blabla
  >   end;
  >   x
  > 
  > let () =
  >   if x then
  >     a
  >   else match y with
  >     | A -> x
  >     | B -> y
  > 
  > let () =
  >   if x then
  >     a
  >   else
  >   match y with
  >   | A -> x
  >   | B -> y
  > 
  > let () =
  >   if x then a else
  >   fun x ->
  >     y
  > EOF

  $ ocp-indent -c strict_else=never str_else_never.ml
  let () =
    if true then "bla" else
    if true then "bli" else
    "blo"
  
  let () =
    if true then "bla" else
    if true then "bli" else
    begin
      "hop"
    end
  
  let () =
    if true then "hop" else
    if true then "hap" else
    ((); "bla")
  
  let () =
    if
      x
    then
      y
    else k,
         w;
    z
  
  let () =
    if x then a
    else
    let y = x / 42 in
    y
  
  let () =
    if x then a
    else if y
    then b
    else begin
      blabla
    end;
    x
  
  let () =
    if x then
      a
    else match y with
      | A -> x
      | B -> y
  
  let () =
    if x then
      a
    else
    match y with
    | A -> x
    | B -> y
  
  let () =
    if x then a else
    fun x ->
      y
