#!/usr/bin/env pil
(de Mybench Prg
   (let U (usec)
      (prog1
         (run Prg 1)
         (out 2
            (prinl
               *Count
               " "
               (format (*/ (- (usec) U) 1000) 3) ) ) ) ) )
(de main ()
   (one *Count)
   (if
      (and
         (cd "/home/gitkernel")
         (call 'rm '-rf 'vim)
         (call 'git 'clone 'https://github.com/vim/vim)
         (cd "/home/gitkernel/vim")
         (call 'pijul 'init '.)
         (in '(bash -c "git log --pretty=format:\"%H:%s\" --reverse")
            (until (eof)
               (let L (line)
                  (call 'git 'checkout '-q (pack (head 40 L)))
                  (call 'bash '-c "pijul add -r . 1>/dev/null 2>&1")
                  (Mybench (call 'bash '-c "pijul record -am. 1>/dev/null 2>&1"))
                  (inc '*Count) ) ) ) )
      (msg "ok")
      (msg "fail") )
      (bye) )