```-- \$Id: lists.lua,v 1.6 2001/01/13 22:04:18 doug Exp \$
-- http://www.bagley.org/~doug/shootout/
-- contributed by Roberto Ierusalimschy

--------------------------------------------------------------
-- List module
-- defines a prototipe for lists
--------------------------------------------------------------

List = {first = 0, last = -1}

function List:new ()
local n = {}
self.__index = self
setmetatable(n, self)
return n
end

function List:length ()
return self.last - self.first + 1
end

function List:pushleft (value)
local first = self.first - 1
self.first = first
self[first] = value
end

function List:pushright (value)
local last = self.last + 1
self.last = last
self[last] = value
end

function List:popleft ()
local first = self.first
if first > self.last then error"list is empty" end
local value = self[first]
self[first] = nil  -- to allow collection
self.first = first+1
return value
end

function List:popright ()
local last = self.last
if self.first > last then error"list is empty" end
local value = self[last]
self[last] = nil  -- to allow collection
self.last = last-1
return value
end

function List:reverse ()
local i, j = self.first, self.last
while i 0 do
l3:pushright(l2:popleft())
end
-- remove each individual item from right side of l3 and
-- append to right side of l2 (reversing list)
while l3:length() > 0 do
l2:pushright(l3:popright())
end
-- reverse l1 in place
l1:reverse()
-- compare Li1 and Li2 for equality
-- and return length of the list
if not l1:equal(l2) then return nil
else return l1:length()
end
end

N = tonumber((arg and arg[1])) or 1
for i=1, N do
result = test()
end
print(result)

```