loop{putc(A>$.?$.:B)if(B=$.)>$.=getc;A=B}