Someone

alias global {
  var %glob = $1-
  scon -at1 amsg %glob
  var %t = 1
  while ($scon(%t)) {
    scon %t
    var %y = 1
    while ($query(%y)) {
      msg $v1 %glob
      inc %y
    }
    inc %t
  }
}