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