alias tictac {
  %r = return
  %i = 1
  while $mid(EWM7V47LQCUM9CG86ECPW884,%i,3) {
    if $replace($base($v1,36,3),1,?) iswm $1 %r 2
    if $replace($v1,2,1) iswm $1 %r 1
    inc %i 3
  }
  %r 0