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