xref: /openbsd-src/regress/lib/libm/trivial1/test-fp.pl (revision 0757222043219628384271a5d8327cf4d0cc8879)

#!/bin/perl

$a = 113549;

while ($a >= 128) {
        $x = $a % 128;
        $a /= 128;
        print "$x\n";
}