function init_chank()
  local Stopped = false

  _G["main"] = function()
    while not Stopped do

    end
  end

  _G["OnStop"] = function()
    Stopped = true
  end

end

init_chank()

local Stopped = false

function main()
  while not Stopped do

  end
end

function OnStop()
 Stopped = true
end

function AD() --Accumulation/Distribution ("AD")
   local tmp = {pp=nil, p=nil}
   local it = {p=0, l=0}
return function (I, Fsettings, ds)
   if I == 1 then
      tmp = {pp=nil, p=nil}
      it = {p=0, l=0}
   end
   if CandleExist(I,ds) then
      if I~=it.p then 
         it={p=I, l=it.l+1}
         tmp.pp = tmp.p
      end
      local CLH=(2*GetValueEX(it.p,CLOSE,ds)-GetValueEX(it.p,HIGH,ds) - GetValueEX(it.p,LOW,ds))*GetValueEX(it.p,VOLUME,ds)
      local HL=GetValueEX(it.p,HIGH,ds) - GetValueEX(it.p,LOW,ds)
      if HL==0 then 
         tmp.p = tmp.pp or 0
      else
         tmp.p = CLH/HL + (tmp.pp or 0)
      end
      if it.l==1 then
         if HL == 0 then return 0
         else return CLH/HL end
      else
         return tmp.p
      end
   end
return nil
end
end

   local tmp = {pp=nil, p=nil}
   local it = {p=0, l=0}
return function (I, Fsettings, ds)

  Stopped  =   false 

 function   main ()
   while   not  Stopped  do 

   end 
 end 

 function   OnStop ()
  Stopped  =   true 
 end   

   local  Stopped  =   false 

 function   main ()
   while   not  Stopped  do 

   end 
 end 

 function   OnStop ()
 Stopped  =   true 
 end   

Stopped = false

function main()
  while not Stopped do

  end
end

function OnStop()
  Stopped = true
end

local Stopped = false

function main()
  while not Stopped do

  end
end

function OnStop()
 Stopped = true
end