alias tictac {
  var %` 1
  while $mid(123456789147258369159357,%`,5) {
    tokenize 8 $1 $v1
    if ($mid($1,$2,1) = $mid($1,$3,1) && $v1 = $mid($1,$4,1)) return $v1
    inc %` 5
  }
  return 0