alias tictac {
  %i = 1
  while %i < 16 {
    %x = $replace($base($mid(CG1K072142842C7L,%i,2),36,2,9),0,?)
    if %x iswm $1 return 1
    if $replace(%x,1,2) iswm $1 return 2
    inc %i 2
  }
  return 0