let arch_filter archlist par = try let (_,s) = (assoc "architecture" par) in List.mem s archlist with Not_found -> false