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