"XXX:"

   (one *Count)

         (in '(bash -c "git log --pretty=format:\"%h:%s\" --reverse")

         (in '(bash -c "git log -n 10 --pretty=format:\"%h:%s\" --reverse")

                  (setq Record
                     (pack
                        "pijul record "
                        (pack
                           "-am "
                           (pack (head 7 L))
                           ":"
                           (pack (tail -8 L))
                           # " 1>/dev/null 2>&1"
                        )
                     )
                  )
                  (println 'Record Record)

                  (call 'pijul 'add '-r '.)
                  (call 'pijul 'record (pack "-am " (pack (head 7 L)) ":" (pack (tail -8 L))))
                  # (println "ok" (pack (head 7 L)))
                  # (prinl (pack (tail -8 L)))
               )
            )
         )

                  (call 'bash '-c "pijul add -r .")
                  # (call 'bash '-c "\"pijul add -r . 1>/dev/null 2>&1\"")
                  (call 'bash '-c  Record """)

	   )

                  (inc '*Count)
               ) # let
            ) # until
         ) # in
      ) # and