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 $* }