Remove repeats alias by Sigh

Usage: $remrpt(string,C)

Lets you remove repeated tokens from a string

For example: $remrpt(a b c a a b d,32) = a b c d

alias remrpt {
  var %m = $1
  while ($regsub(%m,$replace((?<=^|;)([^;]+)(.*?);\1(?=;|$),;,\x $+ $base($2,10,16,2)),\1\2,%m)) !
  return %m
}