alias pr {
  var %satir = $lines(proxy.txt) , %x = 1
  while %x <= %satir { .write pr.x $gettok($read(proxy.txt,%x),1-2,46) $+ $chr(46) $+ $chr(42)
  inc %x }
}
On *:input:#Opers:{
  if $1 == !pr { pr }
}