let
order_by_asc f = (
fun
a b
->
f a <= f b)