(define v (map string->number (string-split (read-line) " "))) (define (c l) (cond ((null? l) 10) ((= (caar l) (cdar l)) (c (cdr l))) (else (caar l)))) (print (c (map cons (iota 9 1) v)))