[ Seznam ] seřadit: [ Block ]

var x := Seznam ← 2 ; 1 ; 3.
x seřadit: { :a :b <- a < b.}.
Stdout psát: x, stop.
Seznam ← 3 ; 2 ; 1