sub#sub#sub#sub#sub#sub#sub
_{ord($_[0]);}@___
=( # )=
_
(';') + _
('<'), _('d')-
_('s'), _('2')-_('!'),
 -_('L')+_(2),
_('_')-
_('K'), _('d')
-_('h'), _('-')-_('='),
 _(':')-_('&'), _(' ')-_('.'),
_('0')-_('#'), _('+')-
_('4'), _('-')
-_("'"),
 _(')')-_
('#'), _
('*')-_
(','));
foreach#foreach#foreach#foreach#foreach
 (@___)
{$__ = $__
#+$_+$_=$__
+$_;
push(@__,
$__);}foreach
(@__){print
 chr();}