print map{y/X_/\n /;$_}map{$n=$_;map{$$_[$n]}map{[/./g]}
qw(JaercX unrlk so__e ttphr _hea.)}(0..5)