listmethods pain

local side = ""
local p = peripheral
local device = p.wrap(side)

local function setstr(file,input) --writes to file from a variable
    local f=fs.open(file,"a")
    f.writeLine(input)
    f.close()
end

local function mkfile(file) --creates a new file, deletes original first
    shell.run("delete "..file)
    local f=fs.open(file,"w")
    f.close()
end

term.clear()
term.setCursorPos(1,1)
print("What side am I getting methods?")
side = read()

for i,k in ipairs(p.getMethods(side)) do

print(i..":"..k)

end

local name = p.getType(side)
local fname = name..".txt"

if not fs.exists(fname) then
    mkfile(fname)
    for i,k in ipairs(p.getMethods(side)) do
      setstr(fname,k)
    end
    setstr(fname,device.listMethods())
end

print(device.listMethods())