(define (sessizuc x)
   (if (< (count x) 4) #f
    (if (or (sesli (last x)) (sesli (last (butlast x))) 
            (sesli (last (butlast (butlast x)))) ) 
      #f #t
   )))
(define (sesli x)
   (if (member? x "aeIioOuU") #t #f))
(define (plural x)
(if (< (count (keep sesli x)) 1) (word x "?") 
   (if (sessizuc x) (word x "?")
    
   (if (member? (last (keep sesli x)) "eiOU") (word x "ler")
    (if (member? (last (keep sesli x)) "aIou") (word x "lar")
    (word x "?")
   )))))
(plural "karis")