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