>>432　Io
f := method(a,
　i := 0
　while(i < a size,
　　if(a at(i) > a at(i + 1),
　　　a swapIndices(i, i + 1)
　　　i = 0
　　,
　　　i = i + 1
　　)
　)　　
　a
)