(import (scheme base))
(import (scheme file))
(import (scheme process-context))
(import (srfi 180))

(define pk
  (lambda args
    (when #t #;(get-environment-variable "DEBUG")
      (display ";; ")
      (write args)
      (newline))
    (car (reverse args))))

(define todo
  (lambda ()
    (call-with-input-file "bytes25k.json" json-read)))


(let loop ((i (string->number (cadr (pk 'cli (command-line))))))
  (unless (zero? i)
    (when (zero? (modulo i 100))
      (pk i))
    (todo)
    (loop (- i 1))))