[ Sequence ] sort: [ Block ]

var x := Sequence << 2 ; 1 ; 3.
 x sort: { :a :b <- a < b.}.
 Pen write: x, stop.