(loop(format t"~A
"(loop until(eq(read)'#.(read))sum 1/3)))