alias addhash {
  var %x = $1-
  var %y = $0
  var %z = 1
  while (%z <= %y) {
    var %s = $+(%s,$chr(32),$+($chr(35),$($+($chr(36),%z),2)))
    inc %z
  }
  return %s
}