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