local inf = io.open(arg[1], "r")
local out = (arg[2] == "-" and io.stdout) or io.open(arg[2], "w")
local key = arg[3]
local alias = arg[4] or arg[1]:match(("^.+/(.+)%.")) or arg[1]:match(("^(.+)%."))

local lines = 0
local line = nil
local tmp = ""
local lc = ""
out:write('alias "'..alias..'" "'..alias..'0"\n')
lc = inf:read(1)
while lc ~= nil do
    if lc ~= " " and lc ~= "\"" then
        tmp = tmp .. lc
    elseif (line and (#line + #tmp + 1 > 127 and lc == " ")) then
        out:write("alias \""..alias..lines.."\" \"say "..line.."; alias "..alias.." "..alias..(lines+1).."\"\n")
        line = tmp
        tmp = ""
        lines = lines + 1
    elseif (lc == " ") then
        line = (line and line .. " " .. tmp) or tmp
        tmp = ""
    end
    lc = inf:read(1)
end
if (#line + #tmp + 1 > 127) then
    out:write("alias \""..alias..lines.."\" \"say "..line.."; alias "..alias.." "..alias..(lines+1).."\"\n")
    line = tmp
    tmp = ""
    lines = lines + 1
    out:write("alias \""..alias..lines.."\" \"say "..line.."; alias "..alias.." "..alias.."0\"\n")
else
    out:write("alias \""..alias..lines.."\" \"say "..line.." "..tmp.."; alias "..alias.." "..alias.."0\"\n")
end
out:write("bind "..key.." "..alias.."\n")
out:close()
inf:close()