#!/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 'godot)
         (call 'git 'clone 'https://github.com/godotengine/godot)
         (cd "/home/gitkernel/godot")

         (call 'pijul 'init '.)
         (in '(bash -c "git log --reverse --pretty=format:\"%H:%s\"")
            (until (eof)
               (let L (line)
                  #(println (pack (head 40 L)))
                  (call 'git 'checkout '-qf (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) )