OpenBSD-4.6/regress/lib/libm/trivial1/test-fp.pl

#!/bin/perl

$a = 113549;

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