<?$q=($f=fgets(STDIN)<e)?pack:unpack;$a=$q('H*',$i=fgets(STDIN));echo$f?$a:strtoupper($a[1]).($i>r?A:'');
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page