Наверное так...

Никита Козин 11.03.2005 07:14

@foreach[h;key;value;code;order_direction][tkey]
$tkey[^h._keys[]]
^tkey.sort{$tkey.key}[^if(def $order_direction){$order_direction}{asc}]
^tkey.menu{
	$caller.$key[$tkey.key]
	$caller.$value[$h.[$tkey.key]]
	$code
}

Пример вызова: 
^foreach[$myhash;k;v]{
	key = $k
	value = 
	^if($v is hash){
		^foreach[$myhash;k;v]{...}
	}{$v}
}[desc]