function addI takes nothing returns nothing
local integer i = 1
local integer n = 0
    loop
        exitwhen i > 255
        loop
            exitwhen n > i
            set udg_Strings[.i] = ( udg_Strings + "|" )
            set n = n + 1
        endloop
        set i = i + 1
        set n = 0
    endloop
endfunction

set i=1
loop
exitwhen i>10
 // нисчего
set i=i+1
endloop

set i=1
set j=1
loop
exitwhen i>1000
 set j=1
 loop
 exitwhen j>1000
  // ничсего
 set j=j+1
 endloop
set i=i+1
endloop

set i=1
set j=1
loop
exitwhen i>1000
 set j=1
 loop
 exitwhen j>1000
  // ничсего
 set j=j+1
 endloop
set i=i+1
endloop

set i=1
loop
    exitwhen i > 255
    set udg_Strings[.i] = ( udg_Strings[.i] + substring(udg_string, 1, i )
    set i = i + 1
endloop

local integer i
local string s
set i=1
set s=""

loop
exitwhen i>255
 set s=s+"|"
 set udg_strings=s
set i=i+1
endloop

set i=1
loop
exitwhen i>255
   set udg_strings[i] = ""
set i=i+1
endloop

local integer i
    set udg_string[1] = "|"
    set i = 2
    loop
        exitwhen i > 256
        set udg_string[i] = ( udg_string[( i - 1 )] + "|" )
        set i = i + 1
    endloop
    set i = 0