(with-output-to-file "./clucker-dump.json"
  (lambda ()
    (with-oauth twitter-app me
		(lambda ()
		  (call-with-input-request
		   "https://stream.twitter.com/1.1/statuses/filter.json?delimited=length&track=espn"
		   #f
		   (lambda (x)
		     (let lp ((line (read-line x))
			      (tweets 0))
		       (if (< tweets 9)
			   (unless (eof-object? line)
			     (print line)
			     (lp (read-line x) (+ tweets 1)))
			   (close-input-port x)))))))))