gistfile1.sh

function hg-qfoldnext {
    hg qfold `hg qnext`
}
function hg-qflatten {
    hg qsave -c || exit 1
    hg qpop
    while [ `hg qnext` != $1 ]; do
        hg-qfoldnext
    done
    hg-qfoldnext
}