a=*48..57
loop{a=[putc a[getc-48]]|a}