Pasted

#/pastecode alias made by sanitarium on undernet
################################################
 
alias pastecode {
  var %r1 = /(\$[^\s\(\),\x03]+)/g 
  var %r2 = /([\(\)\[\]])/g 
  var %r3 = /([,\:><=&|!])/g 
  var %r4 = /(%[^\s\(\),\x03]+)/g
  var %r5 = /([\{\}])/g  
  var %r6 = /(?:^|\G)(\s)/g 
  var %r7 = /(#[^\s\(\),\x03]*)/g
  var %loop = 1, %end = $cb(0)
  while (%loop <= %end) {
    say $regsubex($regsubex($regsubex($regsubex($regsubex($regsubex($regsubex($cb(%loop),%r1,03\1),%r2,12\1),%r3,07\1),%r4,10\1),%r5,13\1),%r6,\1),%r7,04\1)
    inc %loop 1
  }
}