total cutlength of pipe(totalling bran clle)

[COLOR=#0000ff]!bran = !!collectallfor(|BRAN|,||,!!CE)[/COLOR]
[COLOR=#0000ff]!bransiz = !bran.size()[/COLOR]
[COLOR=#0000ff]do !j from 1 to !bransiz[/COLOR]
[COLOR=#0000ff]!cllelen = clle of $!bransiz[$!j][/COLOR]
[COLOR=#0000ff]!clletotal = !cllelen + !clletotal[/COLOR]
[COLOR=#0000ff]enddo[/COLOR]
[COLOR=#0000ff]$p Total pipe cutlength is $!clletotal

[/COLOR]How to add the clle of branches in a pipe.

/Thanks in advance

collect all bran and run this macro in cycle for every of them ....

!pipes = !!collectallfor(|PIPE|,||,!!ce)
!output = array()
do !pipe values !pipes
 !len = 0
 !branches = !!collectallfor(|BRAN|,||,!pipe)
 do !bran values !branches
   !len = !len + !bran.cllen
 enddo
 !output.append(!pipe.name & |   Length: | & !len )
enddo

q var !output