http://www.perlmonks.org?node_id=1069231

sub _{@_<2&&return print@_;my@a;push@{$a[$|--]},$_ for @_;_(@$_)for@a};_ split//,"huroP cels,tetah Jen akrr";