external ml_get_hw_identifier : unit -> string = "ml_get_hw_identifier"

let hw_identifier = ml_get_hw_identifier