strip-non-tip-heads.boo

import System.Text.RegularExpressions

while true:
	
	heads = /changeset:\s+(?<revision>\d+)(.|\n)+?summary:\s+.+\n/.Matches(shell("hg", "heads"))
	break if len(heads) < 2
		
	for head as Match in heads:
		continue if /tag:\s+tip/.IsMatch(head.Value)
		
		revision = head.Groups["revision"].Value
		print "stripping $revision..."
		print shell("hg", "strip $revision")