alias tictac {
  %x = 1
  %n = 3
  while $mid(123456789147258369159357,%x,1) {
    %n = %n & $mid($1,$v1,1)
    if 3 // %x { 
      if (%n) return %n
      %n = 3
    }
    inc %x
  }
  return 0