alias prueba {
  %c = 1
  while ($lines(canales.txt) >= %c) {
    if ($read(canales.txt,%c) != %borrar) { echo -s no se encuentra %borrar | halt }
    else echo -s Encontrado %borrar | halt
    inc %c
  }
}