a=[d=0]*4e3 a[p=1525]=1 n="$System.in".toLong()+1 P=[] n.times{a[p]^=1;p+=[-50,1,50,-1][d=d+3-2*a[p]&3];P<s=(P.min()..P.max()).sum{a[50*i+it]?'#':' '};s=~/#/&&println(s)}