let status_filter par =
  try
    let (_,s) = (assoc "status" par) in
    match String.nsplit s " " with
    |[_;_;"installed"-> true
    |-> false
  with Not_found -> false