window 1, @"Sort an integer array"

void local fn DoIt
  CFArrayRef array = @[@13,@71,@42,@8,@5,@27]
  array = fn ArraySortedArrayUsingSelector( array, @"compare:" )
  print fn ArrayComponentsJoinedByString( array, @", " )
end fn

fn DoIt

HandleEvents