| que input |
que := SharedQueue new.
input := stdin nextLine subStrings collect: [:each | each asInteger].
input do: [:each |
[(Delay forMilliseconds: each) wait. que nextPut: each] fork
].
input size timesRepeat: [stdout nextPutAll: que next printString; space]
fCBxdWUgaW5wdXQgfApxdWUgOj0gU2hhcmVkUXVldWUgbmV3LgppbnB1dCA6PSBzdGRpbiBuZXh0TGluZSBzdWJTdHJpbmdzIGNvbGxlY3Q6IFs6ZWFjaCB8IGVhY2ggYXNJbnRlZ2VyXS4KaW5wdXQgZG86IFs6ZWFjaCB8CglbKERlbGF5IGZvck1pbGxpc2Vjb25kczogZWFjaCkgd2FpdC4gcXVlIG5leHRQdXQ6IGVhY2hdIGZvcmsKXS4KaW5wdXQgc2l6ZSB0aW1lc1JlcGVhdDogW3N0ZG91dCBuZXh0UHV0QWxsOiBxdWUgbmV4dCBwcmludFN0cmluZzsgc3BhY2Vd