gsub(/./,"& "){for(s=$0;sub(r="[^ ]",_,s);s=s FS)s~r&&$0=s RS$0}1