[0] Perl> print join ' ', map $_^14, 0..15;;
14 15 12 13 10 11 8 9 6 7 4 5 2 3 0 1

[0] Perl> print join ' ', map $_^8, 0..15;;
8 9 10 11 12 13 14 15 0 1 2 3 4 5 6 7