(phixonline)-->
function longest(integer l)
object line = gets(fn)
if line=-1 then return l end if
if l>length(line) then return longest(l) end if
l = longest(length(line))
if l=length(line) then
puts(1,line)
end if
return l
end function
{} = longest(0)