let insert_items l wl ~pos = let wl = if pos < 0 then wl else List.rev wl in List.iter wl ~f:(insert_item l ~pos)