#
# Prove to myself that the only rational fractions
#
# are powers of 2 and 5.
#

set i 2

set ftable {}
while {$i < 100} {

	for {set j 1 } {$j < $i} {incr j} {
		set f [expr $j.0 / $i.0]
		set r [expr $i.0 / $j.0]
		if { ([string length $f] < 7) && ([string length $r] < 7)} {
			if { [lsearch -exact $ftable $f] == -1 } {
				lappend ftable $f
				puts "$f  --- $r"
			}
		}
	}
	incr i
}
	set ftable [lsort -real -decreasing $ftable]
	puts "$i: $ftable"

	exec echo $ftable >xx

