(call 'git 'checkout -qf (pack (head 40 L)))

                  #(println (pack (head 40 L)))
                  (call 'git 'checkout '-qf (pack (head 40 L)))

                  (inc '*Count)
               ) # let
            ) # until
         ) # in
      ) # and
           (msg "ok")
           (msg "fail")
        )
        (bye)
)

                  (inc '*Count) ) ) ) )
      (msg "ok")
      (msg "fail") )
   (bye) )