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