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

fun a x = (b x; c x)
and b x = (a x; c x; d x)
and c x = d x
and d x = e x
and e x = d x

val _ = a 13
Commit	Line	Data
7f918cf1 CE	1	fun a x = (b x; c x)
	2	and b x = (a x; c x; d x)
	3	and c x = d x
	4	and d x = e x
	5	and e x = d x
	6
	7	val _ = a 13