define s (a1 b) {
    if [> $a1 $b] {
        return -1
    }
    if [< $a1 $b] {
        return 1
    }
    return 0
}
 
define so (a c) {
 echo experiencia
}

define a [new TVector]

$a append 4 1 32 2

echo [$a getAt 0]
echo [$a getAt 1]
echo [$a getAt 2]
echo [$a getAt 3]

echo 

$a sort s

echo [$a getAt 0]
echo [$a getAt 1]
echo [$a getAt 2]
echo [$a getAt 3]