alias tictac {
  %x = 0
  %c = 
  while $mid($1,$mid(47132589753691546,%x,1),1) {
    %a = $v1
    inc %c %a
    if %x & 1 {
      if ($pos(36,%c)) return $v1
      %c = %a
    }
    inc %x
  }
  return 0