(= i 0)(whilet o(read)(if(< o'c)(prn:-- i)(++ i)))