[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
Commit	Line	Data
7f918cf1 CE	1	(kitfib35.sml)
	2
	3	val _ =
	4	let
	5	infix + - <
	6	fun fib n = if n < 1 then 1 else fib (n-1) + fib (n-2)
	7	in
	8	fib 35; ()
	9	end
	10