(while 1(prn(count(.replaceAll(read-line)"[^0689]|(8)""$1$1"))))