(de Mybench Prg
   (let U (usec)
      (prog1
         (run Prg 1)
         (out 2
            (prinl
               "XXX:"
               (format (*/ (- (usec) U) 1000) 3)
               " "
               *Count ) ) ) ) )

   (if
	   (and
         (cd "/root")
         (call 'rm '-rf 'Monocypher)
         (call 'git 'clone 'https://github.com/LoupVaillant/Monocypher)
         (cd "/root/Monocypher")

	(msg 'ok)

         (call 'pijul 'init '.)
         (in '(bash -c "git log --pretty=format:\"%h:%s\" --reverse")
            (while (line T)
               (println @)
            )
         )
	   )
	   (msg "ok")
	   (msg "fail")
	)