Import Debian changes 20180207-1

[hcoop/debian/mlton.git] / regression / kitfib35.sml

(*kitfib35.sml*)

val _ = 
let
  infix + - <
  fun fib n = if n < 1 then 1 else fib (n-1) + fib (n-2)
in
  fib 35; ()
end