{do{print;c=0;c+=gsub(/ [^ ]/,"  ");c+=sub(/^[^ ]/," ")}while(c)}