alias tictac {
  %i = 0
  :s
  %x = $gettok(111*	*111	???111*	1??1??1*	?1??1??1?	??1??1??1	1???1???1	??1?1?1*,%i,9)
  if %x iswm $1 return 1
  %x = $replace(%x,1,2)
  if %x iswm $1 return 2
  inc %i
  if %i > 16 return 0
  goto s