(define (myvowel? x) (member? x  "aeIioOuU"))
(define (kalin? x) (member? x "aIou"))
(define (sondan n wd) (last ((repeated butlast (- n 1)) wd)))
(define (plural wd) 
                    (if (equal? (count wd) 0) (word wd '?)
                    (if (equal? (count wd) 1) (word wd '?)
                    (if (myvowel? (sondan 1 wd))
                         (if (kalin? (sondan 1 wd)) (word wd 'lar)
                                                    (word wd 'ler))
                    (if (myvowel? (sondan 2 wd))
                          (if (kalin? (sondan 2 wd)) (word wd 'lar)
                                                     (word wd 'ler))
                    (if (equal? (count wd) 2) (word wd '?)
                    (if (myvowel? (sondan 3 wd)) 
                          (if (kalin? (sondan 3 wd)) (word wd 'lar)
                                                     (word wd 'ler))
                    (word wd '?))))))))