alias okut {
  var %i = 1,%t = $lines(x.txt)
  while (%i <= %t) {    
    if ($window(@X) == $null) { window -ne @X }
    echo 1 -t @X $read(x.txt,%i)  
    .inc %i 
  }
}
alias F1 { /okut }