var c:char;begin for c:=^`to^>do write(c,(" ")[ord(15and ord(c)=15)+1])end.