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