121 

   122 qappunappv()

   123 (

   124     for command in qapplied "qapplied -v" qunapplied "qunapplied -v"; do

   125         echo % hg $command

   126         hg $command

   127     done

   128 )

   129 

   130 hg qpop -a

   131 hg qguard -l

   132 qappunappv

   133 hg qselect 1

   134 qappunappv

   135 hg qpush -a

   136 qappunappv

   137 hg qselect 2

   138 qappunappv

   139 

   140 for patch in `hg qseries`; do

   141     echo % hg qapplied $patch

   142     hg qapplied $patch

   143     echo % hg qunapplied $patch

   144     hg qunapplied $patch

   145 done