Module:LoadData

 localp={}

 -- Finds the next key key <= or >= the given i.
 -- operator is ±1
 localfunctionfindItemRange(data,i,operator)
 localbestIndex=nil
 i=i*operator
 fork,vinpairs(data)do
 localkop=type(k)=='number'andk*operator
 ifkopandkop<=iand(bestIndex==nilorkop>bestIndex*operator)then
 bestIndex=k
 end
 end
 ifbestIndexthenreturndata[bestIndex]elsereturnnilend
 end

 localfunctionload(datamodule,frame)
 localargs=frame.args
 localdata=mw.loadData(datamodule)
 fori=1,20do
 ifargs[i]thendata=data[tonumber(args[i])orargs[i]]
 elseifargs[i..' lteq']then
 data=findItemRange(data,tonumber(args[i..' lteq']),1)
 elseifargs[i..' gteq']then
 data=findItemRange(data,tonumber(args[i..' gteq']),-1)
 elsebreakend
 end

 ifdata==nilthen
 returnargs['if_nil']-- not a required argument, OK to return nil here.
 end

 iftype(data)=='table'then
 -- Put the table into another table because the return value of loadData
 -- is a "fake" table that only has certain metamethods.
 localrealdata={}
 fork,vinpairs(data)do
 realdata[k]=v
 end
 data=realdata
 else
 data={data}
 end

 ifargs['template']then
 returnmw.text.unstripNoWiki(args['template']):format(unpack(data))
 elseifargs['preprocess']then
 returnframe:preprocess(mw.text.unstripNoWiki(args['preprocess']):format(unpack(data)))
 else
 returntable.concat(data)
 end
 end

 returnsetmetatable({},{
 __index=function(t,k)
 returnfunction(frame)
 returnload('Module:'..k,frame)
 end
 end
 })