| parseTree prevTreeNode resultNode newPreNode  msgNode  |

parseTree := RBParser parseExpression: '[ : job | 
			| index |
			index := 0.
			job title: ''Starting...''.
			] asJob run'.
prevTreeNode := RBParser parseExpression: 'job title: ''Starting...'''.
newPreNode := RBParser parseExpression: '
	(1 to: 100)
		collect: [ : num | num * 2 ]
		thenDo: [ : fileEntry |
					index := index + 1.
					JobProgress progress: (0.1 * index); title: ''Procesing...'', index asString ]'.
resultNode := (RBParseTreeSearcher new
	matchesTree: prevTreeNode
	do: [ :aNode :answer | aNode parent ]) executeTree: parseTree.
resultNode addNode: newPreNode after: prevTreeNode.
msgNode := resultNode parent parent parent.
msgNode newSource