sub DecodeNB {
	pack 'C*', map{
		( ( vec( $_[0], 2+$_*4, 4 ) -1 ) << 4 )
		+
		(   vec( $_[0], 4+$_*4, 4 ) -1 )
	} 0 .. 8;
}