OpenEuphoria

Actually, my tests show it 13,800 times slower (0.03 vs 414 seconds), probably an exponential slowdown due to messed up refcounts. It has nothing to do with the new and bizarre include system, try this:

atom t 
    t = time() 
 
sequence text 
integer lineno, count 
 
function Clone(sequence intxt) 
 
 
George 
integer lt 
    lt = length(intxt) 
    return intxt[1..lt] 
end function 
 
    text = {repeat("1234",60000)} 
    count = 0 
    lineno = 0 
    while 1 do 
	if lineno>=length(text[1]) then exit end if 
	lineno += 1 
	text[1][lineno] = Clone(text[1][lineno]) 
	count += 1 
	if count>2000 then 
	    printf(1,"unpacking %d\n",{lineno}) 
	    count = 0 
	end if 
    end while 
 
    printf(1,"done, t=%3.2f\n",time()-t)