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

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

                        "pijul record -am "
                        "\""
                        (pack (head 7 L))
                        ":"
                        (pack (tail -8 L))
                        "\""
                        " 1>/dev/null"

                        "pijul record -am. 1>/dev/null 2>&1"

                  (call 'git 'checkout '-q (pack (head 7 L)))
                  (call 'bash '-c "pijul add -r . 1>/dev/null")
                  # (bench (call 'pijul 'record '-am.))

                  (call 'git 'checkout '-q (pack (head 40 L)))
                  (call 'bash '-c "pijul add -r . 1>/dev/null 2>&1")