loop{x=getc
putc x>?0??j-x:x}