gets$_ puts S while(S='';gsub!(/^./){S=$&+S;""})