(defun splitat (c line)
  (labels ((rec (line acc)
				(let ((pos (position-if (lambda(cc) (char= c cc)) line)))
				  (if pos
					  (rec (subseq line (1+ pos)) (cons (subseq line 0 pos) acc))
					(nreverse (cons line acc))))))
	(rec line nil)))
(defun f(a b)
  (if (and (< a 10)
           (> a 0)
           (< b 10)
           (> b 0))
    (* a b)
    -1))
(let* ((line (read-line nil nil))
       (splited (mapcar #'parse-integer (splitat #\space lint))))
  (f (car splited) (cadr splited)))
