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"