(print ((.$ (fold$ + 0)
            (filter$ boolean)
            (map$ digit->integer)
            string->list)
        (read-line)))