         "\r\n"
         "\r\n"]}]}]}
   ))
+
+(def spr-sample )

                           (s/select (s/class "ikea-measurements-table-row-child") site-htree))
        filter-fn #(remove cs/blank? (map cs/trim (filter string? (:content %))))]
    (reduce (fn [v m]
              (conj v (concat (filter-fn m)
                              (filter-fn (first (s/select (s/class "measure-quantity") m))))))
            []
            table-rows)))


  (Integer/parseInt (nth (cs/split (first coll) #"\s") 2)))

(defn- transform-packages [hick-packages]
  (reduce (fn [v {:keys [dimensions-and-weight packages weight-unit dimension-unit]}]
            (conj v {:width (nth dimensions-and-weight 0)
                     :height (nth dimensions-and-weight 1)
                     :length (nth dimensions-and-weight 2)
                     :weight (nth dimensions-and-weight 3)
                     :quantity packages
                     :weight-unit weight-unit
                     :dimension-unit dimension-unit}))
          []
          hick-packages))

