set _ 22
while \$_<1e8 {puts -nonewline $_;set _ [expr $_*7/3]}