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