[ Seznam ] razvrsti: [ Block ]

var x := Seznam ← 2 ; 1 ; 3.
x razvrsti: { :a :b <- a < b.}.
Stdout napišite: x, ustavi-se.
Seznam ← 3 ; 2 ; 1