#23456789_123456789_123456789_ $_=hex a;print$_--,"\n"while$_