in reply to TinyPerl for Win32
------------------------------------- eval reverse@{[lreP =>q{ tsuJ\{qq},' rehtonA' ,q{\}rekcaH },' tnirp']}[1+1+ 1,1-1,1+1,1*1,(1+1)*(1+1)]; -------------------------------------