let print_operations_list opl =
print_start_block "Operations list";
fprintf !out_fmt "#define %s = %d \n" nbOp (List.length opl);
fprintf !out_fmt "enum %s {" listOp;
let v=ref "" in
List.iter (fun op -> fprintf !out_fmt "%s\n %s" !v op;v:=",") opl;
fprintf !out_fmt "\n}\n";
print_end_block "Operations list"