alias removefirst {
  var %removethese = abcde, %string = $1, %i = 1, %l = $len(%removethese)
  while (%i <= %l) {
    %string = $regsubex(%string,/ $+ $mid(%removethese,%i,1) $+ /,)
    inc %i
  }
  return %string
}