let create_number var_id var_type = 
  var_id * nb_AtmTypes + var_type