fork download
  1. import Control.Applicative --(because ideone uses an old Prelude not including <$>)
  2. g%w=(g<$>w)++w++pure(g.last$w);main=putStr$pred%"h&x>)h=%?x*,,x,,qvsf)h/mbtu%x*<nbjo>qvuTus%qsfe&#"
Success #stdin #stdout 0s 4700KB
stdin
Standard input is empty
stdout
g%w=(g<$>w)++w++pure(g.last$w);main=putStr$pred%"h&x>)h=%?x*,,x,,qvsf)h/mbtu%x*<nbjo>qvuTus%qsfe&#"