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