alias mamsg {
  var %x = 1
  while (%x <= $scon(0)) {
    scon %x amsg $1-
    inc %x
  }
}