let iosd debug_msg x = try int_of_string x with Failure("int_of_string"-> begin
  pf "Conversion from string to number failed on token '%s'.\nReason: \"%s\"\n" x debug_msg ; 
  failwith "Cannot continue after type conversion failure." end