open ExtLib;; open String;; open List;; let reverse_words s = join " " (rev (remove_all (nsplit s " ") ""));;