(IFDEF QUOTE THEN "QUOTE" ELSE "" END);
(IFDEF STAGE THEN "STAGE" ELSE "" END);
(IFDEF TYPE THEN "TYPE" ELSE "" END);
+(IFDEF PROFV THEN "PROFV" ELSE "" END);
] in
let map s = s <> "" in
let features_string = KT.concat " " (KL.filter map features) in