(extend binary.pack srfi-13)(if(#/n/ #0=(read-line))(print(set! *(string-upcase(car(unpack"H*"))))(ref * 97""))(pack"H*"`(,#0#)))