"Untitled"
By anon (https://pastebin.com/u/anon)

URL: https://pastebin.com/phqwbLAQ
Created on: Monday 14th of May 2012 05:46:15 AM CDT
Retrieved on: Friday 30 of October 2020 10:36:17 AM UTC


on *:input:*:{
  if ($left($1-,1) != /) {
    say 0,1 $+ $regsubex($1-,/(.)/g,$+($chr(3),$gettok(04.07.08.09.11.13,$r(1,6),46),\1))
    haltdef
  }
}