(#1=dotimes(i(set'v(expt 3(read))))(#1#(j v)(princ(if(some'char=(format()#2="~3,3R"i)(format()#2#j)"111")"  ""::")))(terpri))