(insert-child loc item)
Inserts the item as the leftmost child of the node at this loc, without moving
(defn insert-child [loc item] (replace loc (make-node loc (node loc) (cons item (children loc)))))