                (let [buf (.-result fr)
                      dem (js/tf2demo.Demo. buf)
                      parser (.getParser dem)
-                     packets (js/Array. 20000)
+                     packets (js/Array. 50000)
                      idx (atom 0)]
                  (.on parser "packet"
                       #(do (aset packets @idx %) (swap! idx inc)))

          (dom/div nil (js/JSON.stringify (clj->js packet))))
        (when packets
          (dom/p nil
                 (str "Loaded " packets-count " packets. Displaying: "
                      (count packets))))
        (when file (file-view this results))
        (when file
          (jsx Table

                 (when (< @idx (.-length packets))
                   (set! (.-length packets) @idx))

                 (let [p (js->clj packets)
                       x (js/console.log "done converting" (count p))]
                   (cb {:file/results (str "some file contents: "
                                           (.-name file)
