((+ (in alpha "éèàâùêîïôüûëçÉÈÀÂÙÊÎÏÔÜÛËÇ")) (set! previous-word last-word) (set! last-word (the-string)) (if (string-ci=? previous-word last-word) (print " line n° " *LINE-NUMBER* " : " previous-word " " last-word )) (ignore))