val square = fn x => x * x; fun moreThanSquare a b = a + (square b); fun lastElementOr17IfEmpty lst = foldl (fn (newElement,running) => newElement) 17 lst; fun digitsToDecimalValue lst = foldl (fn (newElement,running) => newElement+10*running) 0 lst; val firstElementOr17IfEmpty = foldr (fn (newElement,running) => newElement) 17;