(extend binary.pack srfi-13)(if(#/n/ #0=(read-line))(print(set! *(string-upcase(car(unpack"H*"))))(ref * 97""))(pack"H*"`(,#0#)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page