let rec record_get_undefined_loop fields = function | [] -> String.concat " " (List.rev fields) | (true, field) :: rest -> record_get_undefined_loop (field :: fields) rest | _ :: rest -> record_get_undefined_loop fields rest