let set_field f = "set_"^(f_suffixe f)