let
fsort (f1,_) (f2,_) = compare_field f1 f2