$/=$u;$_=<DATA>;y;-<[.]>+;;cd;s:.:($t=qw=while%{ ++$p %||last} %}++
++% %-- --% print(chr%) --$p=[ord($&)%13%9])=~s'%'($m[$p])';"$t;\n"
:gex;eval __DATA__
,>>++++[>++++++++<-]+++++++++++[>>+++++++++++<<-]++++++++++[>>>++++
++++++<<<-]++++++++[>>>>+++++++++<<<<-]>>>>++.<<----.--.+.<.>>---.<
------.+.+++++.>+++++++.---.<--.<.>>>++++++.<.<.>+++++++.<<.>>----.
-------.++.++++++++.------.<.<++++++++++++.<<++++++++++.