/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
}