c=concat;a="1001";b="0110";x=[a,b,b,a];y=[b,a,a,b];main=do putStr$c$c[y,x,x,y,x,y,y,x,x,y,y,x,y,x,x,y]