(= p 1 c 1)(for i 1(read)(pr i(if(is i p)(do(++ p(++ c))"
")" ")))