let click ?(index:int=0) () =
   let id = (counter.(index) + 1)   in 
   let _  = (counter.(index) <- id) in id