sub _{ srand shift;push@a,map{chr 97+rand 21}0..shift||5}; _ 4971054;_ 2123966;_ 2922908,4;_ 306345,3;$_=join "",@a; s#(?=[ap][en]|ha)# #g;print [download]
Somehow I couldn't resist the seduction of the random numbers ;-)
Perl 6 in German -- Difficult Sudoku