[0] Perl> print join ' ', map f( $_, 9, 26 ), 0 .. 26;;
18 19 20 21 22 23 24 25 26 9 10 11 12 13 14 15 16 17 0 1 2 3 4 5 6 7 8

[0] Perl> print join ' ', map f( $_, 6, 26 ), 0 .. 26;;
24 25 26 21 22 23 18 19 20 15 16 17 12 13 14 9 10 11 6 7 8 3 4 5 0 1 2

[0] Perl> print join ' ', map f( $_, 3, 26 ), 0 .. 26;;
24 25 26 21 22 23 18 19 20 15 16 17 12 13 14 9 10 11 6 7 8 3 4 5 0 1 2