indent.sml

signature Stuff =
sig
  type pizza

  val x : 7
end

let val x = 5
    val y = 7
in
  (fn (x, y) =>
      x * y)
end

let
  val a = 2
  val b = 3
in
  17
end

fun blah 0 = 0
  | blah 1 = 1
  | blah n = blah (n - 1) + blah (n - 2)

case x of
  1 => 3
| 2 => 4

case x
 of 1 => 2
  | 3 => 4

val s' = Seq.map (fn (x, y) => (x + y,
                                x - y))
                 (Seq.flatten s)