           "&limit=100"
           (if cursor (str "&cursor=" cursor) ""))))
 
+(defn create-url-2
+  ([thread-ids api-key]
+     (create-url-2 thread-ids api-key nil))
+  ([thread-ids api-key cursor]
+     (str posts-endpoint
+          "?api_key="
+          api-key
+          (apply
+           str
+           (map
+            (fn [t]
+              (str "&thread=" t))
+            thread-ids))
+          "&order=asc"
+          "&limit=100"
+          (if cursor (str "&cursor=" cursor) ""))))
+
 (defn write-content
   [filename-to-write body]
   (let [content-to-write (get body "response")]


        deja-downloaded-file (string/replace thread-ids-file
                                             #".threads$"
                                             ".downloaded")
        
        downloaded (if (.exists
                        (io/as-file deja-downloaded-file))
                     (set
                      (string/split-lines
                       (slurp deja-downloaded-file)))
                     (set []))]
    (if-not (.exists
             (io/as-file file-to-write))
      

                             (get "cursor")
                             (get "next"))
            
            next-pg-url (create-url-2 thread-id
                                      api-key
                                      cursor-value)
            
            next-pg-content (core/rate-limited-download next-pg-url)]
        (write-content filename-to-write
