let get_field f = "get_"^(f_suffixe f)