#!/usr/bin/perl

for ($i = 0 ; $i <= 15 ; $i++){
    $num = substr(unpack(B8,  pack(C, $i)),4,4);
    print ("        4'b", $num, ": decode16 = 16'b");
    for ($j = 15; $j >= 0 ; $j--){
	if ($j == $i){
	    print "1";
	}else {
	    print "0";
	}
    }
    print ";\n";
}

