/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/k /kick # $$1 $2-
/q /query $$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-
; Says
/same /say 9S11a0M4E13!
/pizza /say 9,1Got0 Piz4za?
/flashbang /say 0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang0,8flashbang!8,0flashbang


; Name Says
/wanker /say 8,1Talking about wankers, its 7 $18!!!
/halfop /say 4,1hey $1! 8Give me my 13half op8 back!!
/highlight /say 12HiGhLiGhT SpEcIaL: 0,0HEY $1 YOU FUCKING SUCK
/noob /say 13,1fuck you12 $1 13you stupid noob!
/wtf /say 11,1WTF 8ARE 4YOU 9ON7 $171!!!!1111111
/stfu /say 9Hey $1! 8I have an idea! 12Why dont you 4SHUT THE FUCK UP DICKHEAD!!
/nou /say 9,1nou.
/owned /say 4,1OWNED8 $14!!!!1
/lol /say 9,1l8o7l9 $1 1not funny dickhead
/owned /say 0,1 $1 got 4,5O8,7W9,3N11,12E13,6D15,14!
/nazi /say  1,0 THIS ISN'T NAZI GERMANY,4 $1
/bh /say 9,1BOOM! 4,1HEADSHOT!!!
/com /say 12I'mmmm 9a 7COMputer
/original /say 13,1HEY $1, YOU ARE SO 8ORIGINAL4 CAN I BE YUO!?!
/tony /say 0,1_TONY_DANZA_TAP_DANCE_EXTRAVAGANZA4_____BONANZA!!!!!!!!!!!!!!!!!!
/comm /say  0,4 WHAT ARE YOU $1, 8COMMUNIST!@!? 
/christ /say 14,1THE POWER OF CHRIST14,1 COMPELS YOU TO SHUT THE FUCK UP0,1 $1
/rno /say 4,1.5RRRRRRRRRRRRRRRRRRRRRRR4no
/rol /say 0,1.14rrrrrrrrrrrrrrrrrr0o9l15!
/stop /say 14,1.4STOP!14!4!14!
/hammer /say 15,1HAMMERTIME!
/hb /say 9jeez $1 13you're giving me 7H4A14R15D 3B9O12N2A6R3S
/wb /say 2,1f0,1W2,1u0,1E2,1c0,1L2,1k0,1C2,1o0,1O2,1f0,1M2,1f0,1E 0,1B2,1s0,1A2,1l0,1C2,1u0,1K2,1t0,1 $1
/same /say 9S4a8M12E8!4!8!
/fuck /say 0,1Ummm, $1, if you don't mind, can you please 4,1SHUT THE FUCK UP YOU FUCKING PIECE OF FUCKING SHIT FUCKING ARSE SLUT WHORE 8,1FUCK FUCK FUCK SHIT PIECE OF FUCK, SHUT THE FUCK UP, K? FUCK!
/dream /say 9,1HEY8 $19 DREAM ON CHIEF! 
/better /say 7,1I think it's time you got 8BETTER AT LIFE,9 $1 
/bday /say 13Happy Birthday $1, 4YOU'RE STILL A FAGGOT
/dk /say 8,1Hey $1, 4,1BE A DONKEY KONG AND BRING IT ON!!!
/ok /say 11OK4 $1 11OK
/calm /say 11,1 HEY $1 JUST 7,1CALM THE FUCK DOWN8,1 YOU FUCKING FAGGOT
/pu /say 8,1Hey $1: 4,1 LOOK YOU FILTHY LITTLE PIECE OF ABSOLUTE DISGUSTING GUTTER DWELLING SHIT:11,1 GIVE ME 20 PUSH-UPS RIGHT NOW OR I'LL RIP OFF YOUR HEAD AND TAKE A GREAT BIG DUMP DOWN YOUR NECK!
/cock /say 4,0@2:4D8,4 HEY $1: 0Ronald McDonald says: 8Sit on my cock
/space /say 2,1WOW8 $1, 9YOU MUST HAVE SPACE GOGGLES!@@!!!!!!!!!!!!!!!!!!!!!
/tuffnet /say 9Do your friends KNOW 3ur MR TUFF GUY 14ON THE INTERNET7 $1
/fast /say 0,1FAST REFLEXES4 $1
/realcool /say 0,1R2D0E2I0A2C0L2K 0 0C2H0O2E0O2A0L12D 0 $1
/haxor /say 13,1 $18 IS A H4X0R!
/gayscript /say 11,1Hey $1, 8there's 4NOTHING 8that can't be solved by a 9shitload 8of 13gay scripts8.
/stfunoob /say 8,1Hey $1, SHUT THE FUCK UP NOOBLAR!!
/fatscript /say 3Fatty Can Skript 13CAN YOU MR $1
/lastweek /say 8,1Hey $1 0- 9Welcome to LAST WEEK
/warnscripts /say 4,1WARNING 8it seems0 $1 8has run out of scripts!
/pik /say 8|4,8•1,8^_º4,8•8,8|
/patient /say 4,1WARNING! 0,1IN ORDER TO PLAY THIS GAME YOU MUST BE PATIENT!
/love /say 0,1I think13,1 $1 0,1and12,1 $2 0,1 should get married: THEY'RE RAGING AT EACH OTHER A LOT LIKE A MARRIED FUCKING COUPLE!!!
/rage /say 4,1RAGE IT UP,9,1 $1
/10min /say 8,1Hey $1, 1310 YEARS MINIMUM
/poach /say 11,1Hey7 $1 13YOUR SCRIPT JUST GOT12 POACHED
/rrno /say 4,1Hey $1, 8RRRRRRRRRRRRRRRRRRRRRRRRRRRno
/rryes /say 7,1Hey $1, 8RRRRRRRRRRRRRRRRRRRRRRRRRRRyes
/olay /say 9,1OL0,1A4,1Y!
/roflmao /say 2,1n0R2o0O2t0F2f0L2u0M2n0A2n0O2y0 $1!
/speak /say 9,1HEY11,1 $1, 7,1SPEAK WHEN YOU ARE SPOKEN TO, 4,1BITCH!
/zing /say 8,1.8,1zzzzzzzzzzzzzzzzzzzzz4i13,1n15,1g
/zinger /say 9,1 Hey $1, 8,1WOULD YOU LIKE A4,1 ZINGER BURGER13,1 WITH EXTRA 0,1ZING13,1 FAGGOT?
/spam /say 8,1HEY $1, 4,1SPAM IT UP, 9,1FAGGOT
/dock /say 11,1Hey $1 have a 13bubs SPEcIAL 4"you're a dock"
/retard /say 11,1Hey $1 have a 13bubs SPEcIAL 4"RETARRED!"
/fatchicks /say 11,1Hey $1, have a 13haste SPEcIAL 4"yeah i wank over fat chicks"
/hugknife /say 11Hey $1 have a 13Morgoth SPEcIAL 4"Hug a knife faggot"
/gardener /say 11Hey $1, have a 13 Mo0se SPEcIAL 4"im a gardener"
/veilspecial /say 11Hey $1, have a 13 Veilside SPEcIAL 4"i don't need spelling and grammer in irc... ist the internet"
/xmas //say 4Jesus's Birthday in: 2 $duration($calc($ctime(December 25 2005 12:00am) - $ctime))
/ragedown /say 4,1Hey9,1 $1 4,1and8,1 $2, 4,1just calm the rage down YOU FUCKING PIECES OF SHIT!
/melkspecial /say 11Hey $1 have a 13melk SPEcIAL 4"stoled!"
/neogenicspecial /say 11Hey $1, have a 13 neogenic SPEcIAL 4"I'd bat semi-naked"
/go /say 14,1.9GO!14!9!14!
/virusspecial /say 11Hey $1, have a 13 virus SPEcIAL 4"HAHAHAHAHHA FUCI (JK FDEUHK"
/Veilsidespecial /say 11Hey $1 have a 13zange SPEcIAL 4"god every faggot and his cat are STOLEING OUR SCRIPTS"
/infernospecial /say 11Hey $1, have a  13Veilside SPEcIAL 4"i don't need spelling and grammer in irc... ist the internet"
/kipperspecial /say 11Hey $1 Have a i13M|kipper SPECIAL 4"I DUN FUGKNGI CAR!!11"
/pump /say 11,1Hey $1, have a 13Pumpin 9spekeal! 4"i take offence to ur remarks ok so if u keep it up ill have no chose but to complain to the admins in mIRC to have u baned fromthis channel"
/rom /say 11,1Hey $1, how about a 13,1RoMulUs Special 4,1"The Bearer of christ says: YOU'RE FUCKED CUNT!"
/tiny /say 8,1Hey $1, go to sleep. Go to sleep, tiny dancer.
/smoke /say (¬¬)_4.15~
/idiot /say 11,1Hey $1, have a 13Pumpin 9special! 4"ur a complete idiot $1 but i do like u"
/mt {
  var %input = $replace($1-,,,_,$chr(29),$chr(32),$chr(160),$chr(3),$chr(30) $+ $chr(3))
  var %temp = ""
  var %c = 1
  var %d = 1
  var %e = 1
  var %num = $numtok(%input,3)
  var %fore = "", %back = ""
  var %t1 = "", %t2 = "", %t3 = "", %t4 = "", %t5 = ""
  var %l1 = "", %l2 = "", %l3 = "", %l4 = "", %l5 = ""
  var %nl1 = "", %nl2 = "", %nl3 = "", %nl4 = "", %nl5 = ""

  while ( %c <= %num ) {
    %temp = $gettok(%input,%c,30)

    while ( %d <= 5 ) {
      %t [ $+ [ %d ] ] = ""
      inc %d
    }

    if ( $left(%temp,1) == $chr(3) ) {
      if ( ( $mid(%temp,2,1) isin 0123456789 ) && ( $mid(%temp,3,1) isin 0123456789 ) ) {
        if ( $mid(%temp,4,1) == $chr(44) ) {
          if ( ( $mid(%temp,5,1) isin 0123456789 ) && ( $mid(%temp,6,1) isin 0123456789 ) ) {
            %fore = $mid(%temp,2,2)
            %back = $mid(%temp,5,2)
            %temp = $replace(%temp,$left(%temp,6),)
          }
          elseif ( $mid(%temp,5,1) isin 0123456789 ) {
            %fore = $mid(%temp,2,2)
            %back = $mid(%temp,5,1)
            %temp = $replace(%temp,$left(%temp,5),)
          }
          else {
            %fore = $mid(%temp,2,2)
            %temp = $replace(%temp,$left(%temp,3),)
          }
        }
        else {
          %fore = $mid(%temp,2,2)
          %temp = $replace(%temp,$left(%temp,3),)
        }
      }
      elseif ( $mid(%temp,2,1) isin 0123456789 ) {
        if ( $mid(%temp,3,1) == $chr(44) ) {
          if ( ( $mid(%temp,4,1) isin 0123456789 ) && ( $mid(%temp,5,1) isin 0123456789 ) ) {
            %fore = $mid(%temp,2,1)
            %back = $mid(%temp,4,2)
            %temp = $replace(%temp,$left(%temp,5),)
          }
          elseif ( $mid(%temp,4,1) isin 0123456789 ) {
            %fore = $mid(%temp,2,1)
            %back = $mid(%temp,4,1)
            %temp = $replace(%temp,$left(%temp,4),)
          }
          else {
            %fore = $mid(%temp,2,1)
            %temp = $replace(%temp,$left(%temp,2),)
          }
        }
        else {
          %fore = $mid(%temp,2,1)
          %temp = $replace(%temp,$left(%temp,2),)
        }
      }
      else {
        %fore = ""
        %back = ""
      }
    }

    %d = 1
    while ( %d <= 5 ) {
      %t [ $+ [ %d ] ] = %temp
      inc %d
    }

    %t1 = $replacex(%t1,$chr(160),[]     [],[,[   ] [],],[   ] [])
    %t1 = $replacex(%t1,1,[]  [  ]   [],2,[] [    ]  [],3,[] [    ]  [],4,[  ]     [],5,[     ]  [],6,[] [     ] [],7,[      ] [],8,[] [    ]  [],9,[] [    ]  [],0,[] [    ]  [])
    %t1 = $replacex(%t1,A,[] [    ]  [],B,[     ]  [],C,[] [    ]  [],D,[    ]   [],E,[     ] [],F,[     ] [],G,[] [    ]  [],H,[  ]  [  ] [],I,[    ] [],J,[]    [  ] [],K,[  ]  [  ] [],L,[  ]    [],M,[] [  ] [  ]  [],N,[  ]  [  ] [],O,[] [    ]  [],P,[     ]  [],Q,[] [     ]  [],R,[    ]   [],S,[] [    ]  [],T,[      ] [],U,[  ]  [  ] [],V,[  ]  [  ] [],W,[  ]   [  ] [],X,[  ]   [  ] [],Y,[  ]    [  ] [],Z,[      ] [])
    %t1 = $replacex(%t1,`,[  ]  [],~,[]         [],!,[] [  ] [],@,[] [      ]  [],$chr(35),[]  [  ]   [  ]   [],%,[  ]  [  ] [],^,[]    [  ]     [],&,[]  [   ]    [],*,[  ] [  ] [  ] [],$chr(40),[]   [  ] [],$chr(41),[  ]    [],-,[]      [],$chr(29),[]         [],=,[]        [],+,[]       [],$chr(123),[]  [   ] [],$chr(125),[   ]   [],;,[]    [],:,[]    [],',[] [  ] [],",[  ] [  ] [],$chr(44),[]    [],.,[]    [],<,[]      [   ] [],>,[   ]       [])
    %t1 = $replacex(%t1,/,[]    [  ] [],?,[     ]  [],|,[] [  ]  [],\,[  ]     [],$,[] [  |   ] [],•,[]       [],,[             ] [],¡,[] [  ] [],¢,[]   [|]   [],¯,[        ] [],°,[] [    ]  [],¿,[]   [  ]  [],×,[]       [],Þ,[  ]     [],þ,[  ]     [],ß,[]  [    ]  [],÷,[]  [  ]   [],Æ,[]   [       ] [],¬,[]        [])

    %t2 = $replacex(%t2,$chr(160),[]     [],[,[  ]  [],],[] [  ] [])
    %t2 = $replacex(%t2,1,[    ]   [],2,[  ]  [  ] [],3,[  ]  [  ] [],4,[  ]     [],5,[  ]     [],6,[  ]     [],7,[]    [  ] [],8,[  ]  [  ] [],9,[  ]  [  ] [],0,[  ]  [  ] [])
    %t2 = $replacex(%t2,A,[  ]  [  ] ,B,[  ]  [  ] [],C,[  ]  [  ] [],D,[  ] [  ]  [],E,[  ]    [],F,[  ]    [],G,[  ]     [],H,[  ]  [  ] [],I,[] [  ]  [],J,[]    [  ] [],K,[  ] [  ]  [],L,[  ]    [],M,[       ] [],N,[   ] [  ] [],O,[  ]  [  ] [],P,[  ]  [  ] [],Q,[  ]   [  ] [],R,[  ]  [  ] [],S,[  ]     [],T,[]  [  ]   [],U,[  ]  [  ] [],V,[  ]  [  ] [],W,[  ]   [  ] [],X,[] [  ] [  ]  [],Y,[] [  ]  [  ]  [],Z,[]   [  ]  [])
    %t2 = $replacex(%t2,`,[] [  ] [],~,[] [   ]     [],!,[] [  ] [],@,[  ]    [  ] [],$chr(35),[           ] [],%,[]   [  ]  [],^,[]  [  ]  [  ]   [],&,[] [  ] [  ]   [],*,[]  [    ]   [],$chr(40),[] [  ]   [],$chr(41),[]  [  ]  [],-,[]      [],$chr(29),[]         [],=,[       ] [],+,[]  [  ]   [],$chr(123),[]  [  ]  [],$chr(125),[] [  ]   [],;,[   ] [],:,[   ] [],',[  ]  [],",[  ] [  ] [],$chr(44),[]    [],.,[]    [],<,[]   [   ]    [],>,[]   [   ]    [])
    %t2 = $replacex(%t2,/,[]   [  ]  [],?,[]    [  ] [],|,[] [  ]  [],\,[] [  ]    [],$,[  ] [|]    [],•,[] [    ]  [],,[  ]         [  ] [],¡,[]    [],¢,[   |  ] [],¯,[]         [],°,[  ]  [  ] [],¿,[]       [],×,[  ]  [  ] [],Þ,[     ]  [],þ,[     ]  [],ß,[] [  ]  [  ] [],÷,[]       [],Æ,[]  [  ] [  ]    [],¬,[       ] [])

    %t3 = $replacex(%t3,$chr(160),[]     [],[,[  ]  [],],[] [  ] [])
    %t3 = $replacex(%t3,1,[]  [  ]   [],2,[]   [  ]  [],3,[]   [  ]  [],4,[  ]  [  ] [],5,[     ]  [],6,[     ]  [],7,[]   [  ]  [],8,[] [    ]  [],9,[] [     ] [],0,[  ] [   ] [])
    %t3 = $replacex(%t3,A,[      ] ,B,[     ]  [],C,[  ]     [],D,[  ]  [  ] [],E,[    ]  [],F,[    ]  [],G,[  ] [   ] [],H,[      ] [],I,[] [  ]  [],J,[]    [  ] [],K,[    ]   [],L,[  ]    [],M,[  ] [ ] [  ] [],N,[      ] [],O,[  ]  [  ] [],P,[     ]  [],Q,[  ]   [  ] [],R,[     ]  [],S,[] [    ]  [],T,[]  [  ]   [],U,[  ]  [  ] [],V,[  ]  [  ] [],W,[  ] [ ] [  ] [],X,[]  [   ]   [],Y,[]  [    ]   [],Z,[]  [  ]   [])
    %t3 = $replacex(%t3,`,[]    [],~,[  ] [  ] [  ] [],!,[] [  ] [],@,[  ] [     ] [],$chr(35),[]  [  ]   [  ]   [],%,[]  [  ]   [],^,[  ]      [  ] [],&,[]  [   ]  [ ] [],*,[  ] [  ] [  ] [],$chr(40),[  ]    [],$chr(41),[]   [  ] [],-,[     ] [],$chr(29),[]         [],=,[]        [],+,[      ] [],$chr(123),[   ]   [],$chr(125),[]  [   ] [],;,[]    [],:,[]    [],',[]    [],",[]      [],$chr(44),[]    [],.,[]    [],<,[   ]       [],>,[]      [   ] [])
    %t3 = $replacex(%t3,/,[]  [  ]   [],?,[] [    ]  [],|,[] [  ]  [],\,[]  [  ]   [],$,[] [  |  ]  [],•,[      ] [],,[  ]         [  ] [],¡,[] [  ] [],¢,[  ] [|]   [],¯,[]         [],°,[] [    ]  [],¿,[] [    ]  [],×,[]  [  ]   [],Þ,[  ]  [  ] [],þ,[  ]  [  ] [],ß,[] [     ]  [],÷,[      ] [],Æ,[] [  ]  [    ]  [],¬,[]      [ ] [])

    %t4 = $replacex(%t4,$chr(160),[]     [],[,[  ]  [],],[] [  ] [])
    %t4 = $replacex(%t4,1,[]  [  ]   [],2,[]  [  ]   [],3,[  ]  [  ] [],4,[      ] [],5,[]    [  ] [],6,[  ]  [  ] [],7,[]  [  ]   [],8,[  ]  [  ] [],9,[]    [  ] [],0,[   ] [  ] [])
    %t4 = $replacex(%t4,A,[  ]  [  ] ,B,[  ]  [  ] [],C,[  ]  [  ] [],D,[  ]  [  ] [],E,[  ]    [],F,[  ]    [],G,[  ]  [  ] [],H,[  ]  [  ] [],I,[] [  ]  [],J,[  ]  [  ] [],K,[  ] [  ]  [],L,[  ]    [],M,[  ]   [  ] [],N,[  ] [   ] [],O,[  ]  [  ] [],P,[  ]     [],Q,[  ]  [  ]  [],R,[  ]  [  ] [],S,[]    [  ] [],T,[]  [  ]   [],U,[  ]  [  ] [],V,[] [    ]  [],W,[       ] [],X,[] [  ] [  ]  [],Y,[]   [  ]    [],Z,[] [  ]    [])
    %t4 = $replacex(%t4,`,[]    [],~,[]    [   ]  [],!,[]    [],@,[  ]       [],$chr(35),[           ] [],%,[] [  ]    [],^,[]           [],&,[  ]  [   ]  [],*,[]         [],$chr(40),[] [  ]   [],$chr(41),[]  [  ]  [],-,[]      [],$chr(29),[]         [],=,[       ] [],+,[]  [  ]   [],$chr(123),[]  [  ]  [],$chr(125),[] [  ]   [],;,[   ] [],:,[   ] [],',[]    [],",[]      [],$chr(44),[   ] [],.,[]    [],<,[]   [   ]    [],>,[]   [   ]    [])
    %t4 = $replacex(%t4,/,[] [  ]    [],?,[]       [],|,[] [  ]  [],\,[]   [  ]  [],$,[]   [|] [  ] [],•,[] [    ]  [],,[  ]         [  ] [],¡,[] [  ] [],¢,[   |  ] [],¯,[]         [],°,[]       [],¿,[  ]     [],×,[  ]  [  ] [],Þ,[     ]  [],þ,[     ]  [],ß,[] [  ]  [  ] [],÷,[]       [],Æ,[       ]    [],¬,[]        [])

    %t5 = $replacex(%t5,$chr(160),[]     [],[,[   ] [],],[   ] [])
    %t5 = $replacex(%t5,1,[      ] [],2,[      ] [],3,[] [    ]  [],4,[]    [  ] [],5,[     ]  [],6,[] [    ]  [],7,[] [  ]    [],8,[] [    ]  [],9,[] [    ]  [],0,[] [    ]  [])
    %t5 = $replacex(%t5,A,[  ]  [  ] [],B,[     ]  [],C,[] [    ]  [],D,[     ]  [],E,[     ] [],F,[  ]    [],G,[] [     ] [],H,[  ]  [  ] [],I,[    ] [],J,[] [    ]  [],K,[  ]  [  ] [],L,[     ] [],M,[  ]   [  ] [],N,[  ]  [  ] [],O,[] [    ]  [],P,[  ]     [],Q,[] [   ] [  ] [],R,[  ]  [  ] [],S,[     ]  [],T,[]  [  ]   [],U,[] [    ]  [],V,[]  [  ]   [],W,[] [  ] [  ]  [],X,[  ]   [  ] [],Y,[]   [  ]    [],Z,[      ] [])
    %t5 = $replacex(%t5,`,[]    [],~,[]         [],!,[] [  ] [],@,[] [      ]  [],$chr(35),[]  [  ]   [  ]   [],%,[  ]  [  ] [],^,[]           [],&,[] [   ]  [  ] [],*,[]         [],$chr(40),[]   [  ] [],$chr(41),[  ]    [],-,[]      [],$chr(29),[        ] [],=,[]        [],+,[]       [],$chr(123),[]  [   ] [],$chr(125),[   ]   [],;,[]  [ ] [],:,[]    [],',[]    [],",[]      [],$chr(44),[]  [ ] [],.,[   ] [],<,[]      [   ] [],>,[   ]       [])
    %t5 = $replacex(%t5,/,[  ]     [],?,[] [  ]    [],|,[] [  ]  [],\,[]    [  ] [],$,[   |  ]  [],•,[]       [],,[             ] [],¡,[] [  ] [],¢,[]   [|]   [],¯,[]         [],°,[]       [],¿,[] [     ] [],×,[]       [],Þ,[  ]     [],þ,[  ]     [],ß,[  ] [   ]  [],÷,[]  [  ]   [],Æ,[  ]   [     ] [],¬,[]        [])

    if ( %back != $null ) {
      %d = 1
      while ( %d <= 5 ) {
        %l [ $+ [ %d ] ] = %l [ $+ [ %d ] ] $+ $replacex(%t [ $+ [ %d ] ],], $+ %back $+ $chr(44) $+ %back,[, $+ %fore $+ $chr(44) $+ %fore)
        inc %d
      }
    }
    elseif ( %fore != $null ) {
      %d = 1
      while ( %d <= 5 ) {
        %l [ $+ [ %d ] ] = %l [ $+ [ %d ] ] $+ $replacex(%t [ $+ [ %d ] ],],,[, $+ %fore $+ $chr(44) $+ %fore)
        inc %d
      }
    }
    else {
      %d = 1
      while ( %d <= 5 ) {
        %l [ $+ [ %d ] ] = %l [ $+ [ %d ] ] $+ $replace($replacex(%t [ $+ [ %d ] ],],,[,),,)
        inc %d
      }
    }

    inc %c
  }

  %d = 1
  while ( %d <= 5 ) {
    %c = 1
    %num = $numtok(%l [ $+ [ %d ] ],3)
    while ( %c <= %num ) {
      %temp = $chr(3) $+ $gettok(%l [ $+ [ %d ] ],%c,3)
      if ( $strip(%temp,c) != $null ) {
        %nl [ $+ [ %d ] ] = %nl [ $+ [ %d ] ] $+ %temp
      }
      inc %c
    }
    inc %d
  }

  say %nl1
  say %nl2
  say %nl3
  say %nl4
  say %nl5