(defconst *LIST-SIZE* 128)
(defconst *UPPER-BOUND* 1024)
(with-current-buffer (find-file "bsearch.txt")
  (mapcar
   #'(lambda (res) (insert (format "%s\n" res)))
   (cl-loop
    for i from 0 to *LIST-SIZE*
    collect
    (random *UPPER-BOUND*))))