@t=<>;sub Q{for(@t){chomp;$i=0;
$_[$i++].=$1while s/(.)//}@_}@_=Q;$i=0;
for(@_){$_.="\n";$i++;/^ ? ?#/&&push@m,$i}until($z){
for$j(@m){$z++if$_[$j-1]=~/^ ? ?#+ (#|$)/}
for$i(@m){$_[$i-1]=~s/# /#/}}
for(@_){s/^/ /until/.{15}/}@t=@_;@_=Q;
for(@_){/ /&&($_.="\n")||s/.//g&&$r++}
print" "x10,"\n"while$r--;print@_