<perl>
get "RUB<100000", "OUT_D";
while (get_next("OUT_D"))
{$ai=$RUB;
 $d=$TEXT;
 $p_d=$PARENT;
 get"RUB==$ai", "OUT_S";
 $s=$TEXT;
 get"RUB==$ai", "OUT_DK";
 $dk=$TEXT;
 get"RUB==$ai", "OUT_FIN";
 $fin=$TEXT;
 get"RUB==$ai", "OUT_P";
 $p=$TEXT;
 get"RUB==$ai", "OUT_RUS";
 $rus=$TEXT;
 get"RUB==$ai", "OUT_CH";
 $ch=$TEXT;
 get"RUB==$ai", "OUT_J";
 $j=$TEXT;
 get"RUB==$ai", "OUT_TUR";
 $tur=$TEXT;
 get"RUB==$ai", "OUT_NL";
 $nl=$TEXT;
 get"RUB==$ai", "OUT_GB";
 $gb=$TEXT;
 get"RUB==$ai", "OUT_US";
 $us=$TEXT;
 get"RUB==$ai", "OUT_F";
 $f=$TEXT;
 get"RUB==$ai", "OUT_E";
 $e=$TEXT;
 get"RUB==$ai", "OUT_PG";
 $pg=$TEXT;
 get"RUB==$ai", "OUT_I";
 $i=$TEXT;
 put
 {
 BAU_IX => [$ai],
 BAU_PARENT => [$p_d],
 BAU_S => [$s],
 BAU_FIN => [$fin], 
 BAU_DK => [$dk], 
 BAU_D => [$d],
 BAU_P => [$p], 
 BAU_RUS => [$rus], 
 BAU_CH => [$ch], 
 BAU_J => [$j], 
 BAU_TUR => [$tur], 
 BAU_NL => [$nl], 
 BAU_GB => [$gb], 
 BAU_US => [$us], 
 BAU_F => [$f], 
 BAU_E => [$e], 
 BAU_PG => [$pg], 
 BAU_I => [$i], 
 }, "BAUM";
}
</perl>