main() public {
  try {
    s old=$system.Process.Undefined(2)
    s N=10000
    s string=$$init(100)
    s t1=$$time1(N,.string)
    s t2=$$time2(N,.string)
    w t1,!,t2,!,t1/t2,!
    
  }catch(ex){
    w "Error: ",ex.DisplayString(),!
  }
  d $system.Process.Undefined(old)
}

init(N) {
  f i=1:1:N s $p(str,",",i)="12345678901234567890"
  q str
}

time1(N,&string) {
  s time=$zh
  f j=1:1:N f i=1:1:$l(string,",") s piece = $p(string,",",i)
  q $zh-time
}

time2(N,&string) {
  s time=$zh
  f j=1:1:N {
    s pos1=0,pos2=0
    do {
      s pos3=$f(string,",",pos1)
      i pos3=0 {
        s pos2=$l(string)+2
      } else {
        s pos2=pos3
      }
      s piece=$e(string,pos1,pos2-2), pos1=pos2
    } while(pos3)
  }
  q $zh-time
}