alias tictac {
  var %y 1,%v,%p 1.2.3|4.5.6|7.8.9|1.4.7|1.5.9|2.5.8|3.5.7|3.6.9
  while $gettok(%p,%y,124) {
    var %i 1,%v $v1
    while ($gettok(%v,%i,46)) var %x %x $+ $mid($1,$v1,1),%i %i + 1
    if ($istok(111.222,%x,46)) return $left(%x,1)
    %x =
    inc %y
  }
  return 0
}