Re: zipping strings

[OderWat]

Lol. I did not see that you just want to zip ASCII strings. Why not just 
writing it?
    
    
    proc zip(a, b: string): seq[char] =
      var q: seq[char]
      newSeq(q, a.len + b.len)
      
      var i = 0
      var o = 0
      while i < a.len or i < b.len:
        if i < a.len:
          q[o] = a[i]
          inc o
        if i < b.len:
          q[o] = b[i]
          inc o
        inc i
      q
    
    let a = "abcd"
    let b = "1234"
    
    echo zip(a, b)