#include <basico.h>

algoritmo

     v={},n=19
     '0,1,2,3,4,5,6,7,8,9,"\t","\v","\v","A","B","C","D","E","F"' enlistar en 'v'

     imprimir ("Original:\n[",v,"]\n\n")
     imprimir (rareti( n, #(ceil(rand(n))), n, intercambiar en (v)),\
               "Processed:\n[", v,"]\n" )
terminar