let parse_inst ch =
  let h = Hashtbl.create 1000 in
  try
    while true do
      let s = (input_line ch) in
      match Pcre.split ~rex:blank_regexp s with
      |status::name::version::_ when status = "ii"-> Hashtbl.add h (name,version) ()
      |-> ()
    done ;
    h
  with End_of_file -> h