как то так?

Александр 03.05.2012 11:29 / 03.05.2012 11:31

@main[]
$t[^table::create{Id	arc	name
1		Вася
2		Петя
3	1	Вася пупкин
4	3	Вася Иванович Пупкин
5	2	Петя Сидоров}]

^getChild[1]

@getChild[id][sub]
$sub[^t.select($t.Id==$id)]
$sub.Id $sub.name
^while($sub){
	$sub[^t.select($t.arc==$sub.Id)]
	$sub.Id $sub.name
}