perl -e 'printf("%04b$/",($_^$_>>1))for(0..pop)' 15
0000
0001
0011
0010
0110
0111
0101
0100
1100
1101
1111
1110
1010
1011
1001
1000