;;; Reverse order of children

(=> (everything)
    (if (or (node-list-empty? (parent (current-node)))
	    (node-list-empty? (follow (current-node))))
	(default-transform)
	(create-follow (ifollow (current-node))
		       (copy-current))))