$_='#
';s||$&x index$z,$/|ge,$_=$_ x5&$z=~s|.|$&x$u|gerwhile@v=/.+/g,$u=length$&,$z=join'',map<>x@v,1..<>;print