(defn build [list-1 list-2]
  (loop [result (list)
         [x & xs] list-1]
    (if x
      (recur (->> list-2 (map #(list x %)) (concat result)) xs)
      result)))