alias tictac {
  var %o 123456789147258369159357,%n,%x 24
  while %x {
    %n = $+(%n,$iif(!$calc(%x % 3),_),$mid($1,$mid(%o,%x,1),1))
    dec %x 
  } 
  return $iif($pos(%n,111) 0 > $pos(%n,222) 0,1,$iif($v2 > 0,2,0)) 
}