alias tictac {
var %x,%y 1
while $mid($1,$mid(123456789147159258357369,%y,1),1) {
inc %x $v1
if 3 // %y {
if 3 // %x return $calc(%x /3)
%x =
}
inc %y
}
return 0