position := method(seq, i,
    min := i
    for(j, i, seq size - 1,
        if(seq at(j) < seq at(min),
            min = j
        )
    )
    return min
)

echange := method(seq, i, j,
    tmp := seq at(i)
    seq atPut(i, seq at(j)) atPut(j, tmp)
)


sort := method(seq,
    for(i, 0, seq size - 1,
        j := position(seq, i)
        echange(seq, i, j)
    )
)

l := list(9, 5, 4, 8, 1, 10)
sort(l) println