a=[]
a<<'%b'%eval($_.bytes*?*)while gets 2
14.times{|i|puts (a.map{|s|s[/.*1/][i]||' '}*'').rstrip}