alias Baglan {

  var %i 1

  var %t $lines(url.txt)

  while (%i <= %t) {

    run $read(url.txt,%i)

    inc %i

  }

}