m@main=getLine>>=print.length.(>>= \c->filter(==c)"06889")>>m