alias ty  { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1
  set %t $gettok($read(ruya.txt,%s),0,32)
  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)
  while %x <= %t {
    .timer 1 %ft echo -a $gettok($read(ruya.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %d) { .timer 1 %ft gh }
    if (11 == %x) { var %x $calc(%x - 1) }
    inc %x 10
    inc %d
  }
}
alias gh {
  set %s $calc(%s + 1)
  set %t $gettok($read(ruya.txt,%s),0,32)
  tg
}
alias tg {
  var %ft 1, %v 10, %i 1, %ı 1
  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)
  while %i <= %t {
    .timer 1 %ft echo -a $gettok($read(ruya.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %ı) { .timer 1 %ft gh }
    inc %i 10
    inc %ı
  }
}