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