(%stdin)(r)file dup 9 string readline pop(e)gt{230{dup read{16 2 string cvrs
print}{stop}ifelse}repeat(A)}{99 string readhexstring pop}ifelse =