open Net_runtime;;

let zahl = ref 0;;

let f_a [| |] =
  incr zahl;
  "This number is " ^ (string_of_int !zahl)
;;


register_callback "a" 0 f_a
;;

sleep();;