let parse_popcon s = match Pcre.split ~rex:blank_regexp s with |rank::name::inst::_ -> (int_of_string rank,name,int_of_string inst) |_ -> fatal "Parse error %s\n" s