Something

alternate {
  if (!$1) return
  var %x = 1, %y
  while (%x <= $len($1)) {
    var %y = $+(%y,$+($iif(%x & 1,$+($chr(03),07),$+($chr(03),03)),$mid($1,%x,1)))
    inc %x
  }
  return %y
}