;$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}
}split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print;