(append-child loc item)
Inserts the item as the rightmost child of the node at this loc, without moving
(defn append-child [loc item] (replace loc (make-node loc (node loc) (concat (children loc) [item]))))