(loop(format t"~D
"(1+(*(ceiling(read)2)2))))