Hierarchy chain

Phizikl from ScriptSpot ask for help (forum topic), for how to make linked (parent-child) hierarchy chain, like train and carriages. Well, here's my code hint:

for i in 1 to (selection.count - 1) do append $[i].children $[i + 1]

Here's final version (with macros for UI button). :)