function loadfile(filename,...)
if filename:sub(1,1)~="/"then
filename=(os.getenv("PWD")or"/").."/"..filename
end
local handle,open_reason=require("filesystem").open(filename)
if not handle then
return nil,open_reason
end
local buffer={}
while true do


local data,reason=handle:read(math.huge)
if not data then
handle:close()
if reason then
return nil,reason
end
break
end
buffer[#buffer+1]=data
end
return load(table.concat(buffer),"="..filename,...)
end

function dofile(filename)
local program,reason=loadfile(filename)
if not program then
return error(reason..':'..filename,0)
end
return program()
end

function print(...)
local args=table.pack(...)
local stdout=io.stdout
local pre=""
for i=1,args.n do
stdout:write(pre,(assert(tostring(args[i]),"'tostring' must return a string to 'print'")))
pre="\t"
end
stdout:write("\n")
stdout:flush()
end