$*<<'%b'%[C*getc]while C=getc
14.times{|i|puts ($*.map{|s|'%1s'%s[/.*1/][i,1]}*'').rstrip}