...
  set N=10000
  set stroka=""
  for i=1:1:N-1 {
    set stroka=stroka_"1,"
  }
  set stroka=stroka_"1"
  
  set t=$zhorolog
  set list=$listfromstring(stroka,",")
  set ptr=0
  for  {
    quit:'$listnext(list,ptr,value)
  }
  set t1=$zhorolog-t
  write "(t1) Время с $listnext = ",?25,t1," c.",!

  set t=$zhorolog
  for i=1:1:N {
    set value=$piece(stroka,",",i)
  }
  set t2=$zhorolog-t
  write "(t2) Время с $piece = ",?25,t2," c.",!

  write "t2/t1 = ",?25,t2/t1,!
  ...

  ;-- Set test string
  set tab=85
  set zt="~"
  set N=10000
  set string=""
  for i=1:1:N-1 {
    set string=$s(i=5000:string_"A~",1:string_"1~")
    set arr(i)=""
  }
  set string=string_"B"
  set list=$listfromstring(string,zt)

  ;-- Test ListFromString (A CLOSE #2 IN SPEED)
  set value=""
  set ptr=0
  set t=$zhorolog
  for i=1:1 {
    q:'$listnext(list,ptr,value)
    set arr(i)=value
  }
  write "[Тест №1] Время прохода по всему списку, используя $listnext = ",?tab,$zhorolog-t," c.",!

  ;-- Test ListFromString - Get specific element
  set value=""
  set ptr=0
  set t=$zhorolog
  for i=1:1:5000 quit:'$listnext(list,ptr,value)
  write "A=",value
  write " [Тест №1.1] Время получения 5000-го элемента, используя $listnext = ",?tab,$zhorolog-t," c.",!,!

  ;-- Test List Get (ONLY SLIGHTLY FASTER THAN $PIECE)
  set t=$zhorolog
  for i=1:1:N set arr(i)=$LG(list,i)
  write "[Тест №2] Время прохода по всему списку, используя $listget = ",?tab,$zhorolog-t," c.",!

  ;-- Test List Get for specific element
  set t=$zhorolog
  write "A=",$LG(list,5000)
  write " [Тест №2.1] Время получения 5000-го элемента, используя $listget = ",?tab,$zhorolog-t," c.",!,!

  ;-- Test $Piece (SLOWEST OPTION)
  set t=$zhorolog
  for i=1:1:N set arr(i)=$p(string,"~",i)
  write "[Тест №3] Время прохода по всему списку, используя $p = ",?tab,$zhorolog-t," c.",!

  set str=string
  set t=$zhorolog
  for i=1:1:N {
    set arr(i)=$p(str,zt,1,1)
    set str=$p(str,zt,2,N+1-i)
  }
  write "[Тест №3.0] Время прохода по всему списку, используя $p с сужением области поиска = ",?tab,$zhorolog-t," c.",!
  
  ;-- Test $Piece For specific element (FASTEST BY FAR!)
  set t=$zhorolog
  write "A=",$p(string,zt,5000)
  write " [Тест №3.1] Время получения 5000-го элемента, используя $p = ",?tab,$zhorolog-t," c.",!,!

  ;-- Test $Find-$Extract (FASTEST!!!)
  set t=$zhorolog
  set p1=1 ; starting pos
  set string=string_"~" ; add delimiter to extract the last piece
  for i=1:1 {
    set p2=$f(string,"~",p1) q:p2=0
    set arr(i)=$e(string,p1,p2-2)
    set p1=p2
  }
  write "[Тест №5] Время прохода по всему списку, используя $f/$e = ",?tab,$zhorolog-t," c.",!
  
  ;-- Test $Find-$Extract for specific element
  set value=""
  set p1=1 ; starting pos
  ;-- set string=string_"~" ; add delimiter to extract the last piece
  set t=$zhorolog
  for i=1:1 {
    set p2=$f(string,"~",p1) q:p2=0
    i i=5000 s value=$e(string,p1,p2-2) q
    set p1=p2
  }
  write "A=",value
  write " [Тест №5.1] Время получения 5000-го элемента, используя $f/$e = ",?tab,$zhorolog-t," c.",!,!