a=*0..9
a=[C]|a while$><<a.index(C=getc%16)