lol @ people still commenting on this fail script..

If youre interested, heres an update I wrote ages ago:

alias saraid {
  var %x $3, %y $1
  tokenize 32 $regsubex($str(-,$2),/(.)/g,$iif(%x,$v1,$chr(35)) $+ \n $+ $chr(32))
  .raw sajoin %y $*
}