/ScriptServ

[aliases]
n0=hack { return $replace($upper($1-),a,4,B,b,C,<,D,d,e,€,F,f,G,g,I,ì,M,m,o,¤,s,§,t,†,l,£,c,©,n,ñ,p,þ,r,®,u,µ,W,w,X,x) }
n1=rainbow {
n2=  if ($1 != $null) {
n3=    return 2,2 12,12 10,10 3,3 9,9 8,8 7,7 4,4 5,5 6,6 13,13  $1 13,13 6,6 5,5 4,4 7,7 8,8 9,9 3,3 10,10 12,12 2,2.
n4=  }
n5=}
n6=rbow {
n7=  say $rainbow($1-)
n8=}
n9=rainsay { say $rain($1-) }
n10=rain {
n11=  if ($1 != $null) {
n12=    var %LL = 04,07,08,09,12,11,13
n13=    var %ctl = 1
n14=    var %ct = 1
n15=    while (%ct <= $len($1-)) {
n16=      var %new = %new $+  $+ $gettok(%LL,%ctl,44) $+ $iif($mid($1-,%ct,1) != $chr(32), $+ $mid($1-,%ct,1), $chr(32) $+ $mid($1-,%ct,1))
n17=      inc %ctl 1
n18=      if (%ctl > 7) { var %ctl = 1 }
n19=      inc %ct 1
n20=    }
n21=    return %new $+ 
n22=  }
n23=}