(= i 0)(whilet s(read)(if(> s'=)(++ i)(prn:-- i)))