for ( 0 .. 32768 ) {
    print unpack( "B16", pack( "n", $_ ) ), "\n";
}