main=interact(\x->show$sum[1|x<"s"])