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