#!/usr/bin/env bash
hg init rebase
cd rebase

#  @  7: 'H'
#  |
#  | o  6: 'G'
#  |/|
#  o |  5: 'F'
#  | |
#  | o  4: 'E'
#  |/
#  | o  3: 'D'
#  | |
#  | o  2: 'C'
#  | |
#  | o  1: 'B'
#  |/
#  o  0: 'A'

echo A > A
hg ci -Am A
echo B > B
hg ci -Am B
echo C > C
hg ci -Am C
echo D > D
hg ci -Am D
hg up -q -C 0
echo E > E
hg ci -Am E
hg up -q -C 0
echo F > F
hg ci -Am F
hg merge -r 4
hg ci -m G
hg up -q -C 5
echo H > H
hg ci -Am H

hg bundle -a ../rebase.hg

cd ..
rm -Rf rebase
(CommandList
  children: [
    (C {(hg)} {(init)} {(rebase)})
    (C {(cd)} {(rebase)})
    (SimpleCommand
      words: [{(echo)} {(A)}]
      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(A)} spids:[64])]
    )
    (C {(hg)} {(ci)} {(-Am)} {(A)})
    (SimpleCommand
      words: [{(echo)} {(B)}]
      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(B)} spids:[80])]
    )
    (C {(hg)} {(ci)} {(-Am)} {(B)})
    (SimpleCommand
      words: [{(echo)} {(C)}]
      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(C)} spids:[96])]
    )
    (C {(hg)} {(ci)} {(-Am)} {(C)})
    (SimpleCommand
      words: [{(echo)} {(D)}]
      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(D)} spids:[112])]
    )
    (C {(hg)} {(ci)} {(-Am)} {(D)})
    (C {(hg)} {(up)} {(-q)} {(-C)} {(0)})
    (SimpleCommand
      words: [{(echo)} {(E)}]
      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(E)} spids:[138])]
    )
    (C {(hg)} {(ci)} {(-Am)} {(E)})
    (C {(hg)} {(up)} {(-q)} {(-C)} {(0)})
    (SimpleCommand
      words: [{(echo)} {(F)}]
      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(F)} spids:[164])]
    )
    (C {(hg)} {(ci)} {(-Am)} {(F)})
    (C {(hg)} {(merge)} {(-r)} {(4)})
    (C {(hg)} {(ci)} {(-m)} {(G)})
    (C {(hg)} {(up)} {(-q)} {(-C)} {(5)})
    (SimpleCommand
      words: [{(echo)} {(H)}]
      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(H)} spids:[206])]
    )
    (C {(hg)} {(ci)} {(-Am)} {(H)})
    (C {(hg)} {(bundle)} {(-a)} {(../rebase.hg)})
    (C {(cd)} {(..)})
    (C {(rm)} {(-Rf)} {(rebase)})
  ]
)