(whilet a(readline)(prn:sum +(map[count _ a]'(#\0#\6#\8#\8#\9))))