l=0;$><<((l<=>C)+?,).chr*(l-l=C).abs+'.'while C=getc