alias mulrep_test {
  window -e @MulRep_Test
  clear @MulRep_Test
  var %a What what hi there|'









'|Hello.|So i've got a story to tell.|That story is really going to be good|So i was talking to this guy|and suddenly my $&
    dogs got attacked by my cats|This story is about to make sense|hi|Mr-Jose-Z aren't you mexican?|I'm running out of things to say| $+ $&
    hello there JoshR|Good night SwiftIRC!|Thanks for doing my challenge.
  var %b ;;ha,u,w;;t,h|
,hi|He,|i've,have,got,you,.,?|really,$chr(32),is,$chr(44) is it|$null|my,his,dogs;cats,platypus|story;sense;about,really,to,story| $+ $&
    i,ello|aren't;you;mexican?,cut my grass|running;say;to,OBJECTS,out,into|h;e;l;o;t;r;j;s,z|night;SwiftIRC,excellent!|Thanks,You're $&
    welcome!,for;doing;my;challenge;.,$chr(32)
  var %c huh huh hi hhere|'hihihihihihihihihihi'|llo.|So have you a story to tell?|That story $chr(44) is it going to be good|So i was talking to this guy|and suddenly his $&
    platypus got attacked by his platypus|This really is really story make really|hello|Mr-Jose-Z cut my grass cut my grass cut my grass| $+ $&
    I'm OBJECTS into of things OBJECTS OBJECTS|zzzzz zzzzz zzzzz|Good excellent! excellent!!|You're welcome!
  var %n 1,%correct
  while $token(%a,%n,124) {
    if ($mulrep($v1, [ $token(%b,%n,124) ] ) == $token(%c,%n,124)) {
      echo 3 @MulRep_Test $!mulrep( $token(%a,%n,124) , $token(%b,%n,124) ) == $v1
      inc %correct
    }
    else {
      echo 4 @MulRep_Test $!mulrep( $token(%a,%n,124) , $token(%b,%n,124) ) != $v2 (returned: $v1 $+ )
    }
    inc %n
  }
  echo 12 @MulRep_Test $+($iif(%correct,$v1,0),/,$token(%a,0,124)) passed ( $+ $calc(%correct / $token(%a,0,124) * 100) $+ % $+ )
}

mulrep {
  var %a
  while $(,$ $+ %a) {
    inc %a
    var %b ,$ $+ %a ,,%c %c $replace($v1 ;,;,%b)
    inc %a
  }
  return $replace($1, [ %c ] ,)
}

mulrep {
  var %y 1,%c ,,
  while %y < $0 {
    inc %y 2
    var %x %x $replace($(,$ $+ $(},%y)) ;,;,%c $ $+ %y %c)
  }
  return $replace($1, [ %x %c ] )
}

mulrep {
  %t = $1
  a $*
  if %t {
  }
  unsetall
  return $v1
}
a {
  inc %a
  %r = $1-
  tokenize 59 %y
  if (2 \\ %a) scon 0 set -u $(%t,) $!replace(%t, $* ,%r)
  %y = %r

mulrep {
  var %i,%t $1
  while $(,$ $+ %i) {
    var %s $v1,%j 1
    inc %i
    while $gettok(%s,%j,59) {
      var %t $replace(%t,$v1,$(,$ $+ %i))
      inc %j
    }
    inc %i
  }
  return %t
}

mulrep {
  var %x 3,%o $1
  while %x <= $0 {
    var %y 1
    while $gettok($(,$ $+ $({,%x)),%y,59) > $z {
      %o = $replace(%o,$v1,$(,$ $+ %x))
      inc %y
    }
    inc %x 2
  }
  return %o
}

mulrep {
  var %x 3,%y $1
  while $0 >= %x {
    var %n $(,$ $+ $(},%x)),%z $numtok(%n,59)
    while %z {
      %y = $replace(%y,$token(%n,%z,59),$(,$ $+ %x))
      dec %z
    }
    inc %x 2
  }
  return %y

mulrep {
  var %m 2,%s,%r $1
  while (%m <= $iif($calc($0 % 2),$0,$calc($0 - 1))) {
    %s = %m + 1
    %c = 1
    %1 = [ $ $+ [ %m ] ]
    %2 = [ $ $+ [ %s ] ]

    while ($token(%1,%c,59)) {
      %r = $replace(%r,$v1,%2)
      inc %c
    }
    inc %m 2
  }
  return %r
}

mulrep {
  var %t $0,%r $1,%i 2,%l 3,%x $regsubex($str(.,$(%t,2)),/./g,$chr(32) $+($,\n) •),%x $left($replace($(%x,2),;,|,$+($chr(32),•,$chr(32)),•),-1)
  while ($gettok(%x,%i,149)) var %v $replace($iif($replace($v1,||,|) != $+(|,$remove($v1,|)),$v1,$remove($v1,|)),.,\.,?,\?),%r $regsubex($(%r,2),/ $+ %v $+ /ig,$gettok($(%x,2),$(%l,2),149)),%i %i + 2,%l %l + 2
  return %r
}

$mulrep(Hell0,0,o) ==> Hell0

alias mulrep {
  %m = 1
  %r = $1
  while %m < $0 {
    inc %m
    var %1 %2,%c 1,%2 $($ $+ %m,2)
    while $calc(%m % 2) && $token(%1,%c,59) != $null {
      %r = $replace(%r,$v1,%2)
      inc %c
    }
  }
  return %r

alias mulrep {
  var %m 1,%r $1
  while %m < $0 {
    inc %m
    var %1 %2,%c 1,%2 $($ $+ %m,2)
    while $calc(%m % 2) && $token(%1,%c,59) != $null {
      %r = $replace(%r,$v1,%2)
      inc %c
    }
  }
  return %r