(for i 0 31(for j 0(- 31 i)(pr((= r[if(all odd _)" "(mem 0 _)"#"(r:map[trunc:/ _ 2]_)])`(,i,j))))(prn))