(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((*read-default-float-format* 'double-float)
         (s (read-line))
         (tbl-0-9 (make-array 10 :initial-contents '(20104 20063 19892 20011 19874 20199 19898 20163 19956 19841)))
         (counter (make-array 10 :element-type 'integer :initial-element 0)))
    (loop for c across s
          when (char/= #\. c)
            do (incf (aref counter (- (char-code c) (char-code #\0)))))
    (dotimes (i 10)
      (when (> (aref counter i) (aref tbl-0-9 i))
            (format t "~d " i)))
    (dotimes (i 10)
      (when (< (aref counter i) (aref tbl-0-9 i))
            (format t "~d~%" i)))))

(main)