(***********************************************************************)
(*                                                                     *)
(*                                OCaml                                *)
(*                                                                     *)
                           , LexiFi                         
(*                                                                     *)
   Copyright 2007 Institut National de Recherche en Informatique et   
   en Automatique .   All rights reserved .   This file is distributed    
   under the terms of the Q Public License version 1.0 .               
(*                                                                     *)
(***********************************************************************)

let () =
  print_endline "C is running";
  incr A.x;
  Printf.printf "A.x = %i\n" !A.x

*********************************************************************
                                                                     
                                OCaml                                
                                                                     
                                                                     
                                                                     
*********************************************************************
                           , LexiFi                         
   Copyright 2007 Institut National de Recherche en Informatique et   
   en Automatique .   All rights reserved .   This file is distributed    
   under the terms of the Q Public License version 1.0 .               

let () =
  print_endline "C is running";
  incr A.x;
  Printf.printf "A.x = %i\n" !A.x
