procedure main()
   every write(!sort([: !(f := open(".")) :])) | close(f)
end