import Control.Applicative --(because ideone uses an old Prelude not including <$>)
g
%w
=(g
<$>w
)++w
++pure
(g
.last$w
);main
=putStr$pred
%"h&x>)h=%?x*,,x,,qvsf)h/mbtu%x*<nbjo>qvuTus%qsfe&#"
aW1wb3J0IENvbnRyb2wuQXBwbGljYXRpdmUgLS0oYmVjYXVzZSBpZGVvbmUgdXNlcyBhbiBvbGQgUHJlbHVkZSBub3QgaW5jbHVkaW5nIDwkPikKZyV3PShnPCQ+dykrK3crK3B1cmUoZy5sYXN0JHcpO21haW49cHV0U3RyJHByZWQlImgmeD4paD0lP3gqLCx4LCxxdnNmKWgvbWJ0dSV4KjxuYmpvPnF2dVR1cyVxc2ZlJiMi