Bitrix: Вывод дерева разделов

Итак, допустим есть некий раздел в инфоблоке. Раздел имеет подразделы, те еще подразделы.

И задачей стоит вывести дерево разделов.

Вывод дерево разделов

$rs = CIBlockSection::GetList(
             array(),
             array('ID'=>$arParams['SECTION_ID'],'IBLOCK_ID'=>5)  
  );
  
  $ar = $rs->GetNext();
  $rs = CIBlockSection::GetList(
            array('LEFT_MARGIN'=>'ASC'),
            array(
                 'IBLOCK_ID'=>5,
                 '>LEFT_MARGIN'=>$ar['LEFT_MARGIN'],
                 '$ar['RIGHT_MARGIN'],
             ),
            false,
            array("NAME","CODE","DEPTH_LEVEL")
  );
  $parentCode = '';
  while($ar = $rs->GetNext()){
  //print_r($ar);echo '
';     
      echo '
 '.$ar['NAME'].'
';
  }

Вывод подразделы раздела

$arFilter = Array('IBLOCK_ID'=>5, 'GLOBAL_ACTIVE'=>'Y', 'SECTION_ID'=>$arParams['SECTION_ID']);
   $db_list = CIBlockSection::GetList(Array("NAME"=>"asc"), $arFilter, false,array("NAME","CODE","ID"));
   while($ar_result = $db_list->GetNext())
   {
    echo '
 '.$ar_result['NAME'].'
';
   }

Получить изображение раздела зная его ID

$obSection = CIBlockSection::GetList(  
             array(), 
             array( "ID"=>$arParams['SECTION_ID']),
             false,
             array('PICTURE','CODE',"NAME") ); 
	$SectionCode = "";
	while($arSection = $obSection->Fetch()){
		//print_r($arSection);
		$SectionCode = $arSection['CODE'];
	?>
	

		">