let pack_by_button pack_function button_text (entry : Entry.t) input_tuples =
    let open Html.D in
    let buys = Product_Match.buys entry.data in
    let sells = Product_Match.sells entry.data in
    ignore [%client
      (
        (Lwt.async @@ fun () ->
         let suggestions = ~%pack_function ~%sells ~%buys ~%input_tuples in
         Lwt_list.iter_p set_suggested suggestions
        ):unit)
    ];