Public Sub Main()
Dim siInput As Short[] = [1, 8, 0, 6, 4, 7, 3, 2, 5, 9]
Dim siTemp As Short

For Each siTemp In siInput.Sort()
  Print siTemp;;
Next

End