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