fun addSix x = let fun makeAdder a = fn y => a+y val addTwo = makeAdder 2 val addFour = makeAdder 4 in addTwo (addFour x) end; addSix 10;