MZNOKCSGX2VY26VLHUML25ZKOD3BMFSQEMWS7IC627FHBMWYKJ3AC
(while (line T)
(println @)
(until (eof)
(let L (line)
(call 'git 'checkout '-q (pack (head 7 L)))
(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)))
)