let one = 1 in (fun() -> one) () evaluates to 32767

[magnusjonsson]

On amd64, this outputs 32767 instead of 1.

module Main = struct

  val main: unit -> unit
  let main() =
    let one = 1 in
    Print.int((fun() -> one) ())
end