
  $ cat > js-model.ml << "EOF"
  > val f
  >   :  int
  >   -> int
  > 
  > type t =
  >   | A
  >   | B
  > 
  > let height = function
  >   | A -> 0
  >   | B -> 1
  > 
  > let _ =
  >   if x then begin
  >     y
  >   end else if x then
  >     y
  >   else z
  > 
  > type t
  >   =  int
  >   -> int
  > EOF

  $ ocp-indent -c JaneStreet js-model.ml
  val f
    :  int
    -> int
  
  type t =
    | A
    | B
  
  let height = function
    | A -> 0
    | B -> 1
  
  let _ =
    if x then begin
      y
    end else if x then
      y
    else z
  
  type t
    =  int
    -> int
