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