open System;
open System.IO;
open System.Text.RegularExpressions;
 
(*Tests if an element is in a list*)
let isInList elementToFind listToCheck = 
    List.fold(fun a b -> a || b = elementToFind) false listToCheck;
 
(*Takes a string and filters it down to common text characters*)
let filterWord wordToFilter = 
    Regex.Replace(wordToFilter, "[^a-zA-Z0-9/!'?.-]", "");
 
let input = "### $$$ Alice In Wonderland ,,,,";
let unfilteredWords = input.Split(' ');
let filteredWords = unfilteredWords |> Array.map(fun x -> filterWord(x));
printfn "%A" filteredWords;

b3BlbiBTeXN0ZW07Cm9wZW4gU3lzdGVtLklPOwpvcGVuIFN5c3RlbS5UZXh0LlJlZ3VsYXJFeHByZXNzaW9uczsKCigqVGVzdHMgaWYgYW4gZWxlbWVudCBpcyBpbiBhIGxpc3QqKQpsZXQgaXNJbkxpc3QgZWxlbWVudFRvRmluZCBsaXN0VG9DaGVjayA9IAogICAgTGlzdC5mb2xkKGZ1biBhIGIgLT4gYSB8fCBiID0gZWxlbWVudFRvRmluZCkgZmFsc2UgbGlzdFRvQ2hlY2s7CgooKlRha2VzIGEgc3RyaW5nIGFuZCBmaWx0ZXJzIGl0IGRvd24gdG8gY29tbW9uIHRleHQgY2hhcmFjdGVycyopCmxldCBmaWx0ZXJXb3JkIHdvcmRUb0ZpbHRlciA9IAogICAgUmVnZXguUmVwbGFjZSh3b3JkVG9GaWx0ZXIsICJbXmEtekEtWjAtOS8hJz8uLV0iLCAiIik7CgpsZXQgaW5wdXQgPSAiIyMjICQkJCBBbGljZSBJbiBXb25kZXJsYW5kICwsLCwiOwpsZXQgdW5maWx0ZXJlZFdvcmRzID0gaW5wdXQuU3BsaXQoJyAnKTsKbGV0IGZpbHRlcmVkV29yZHMgPSB1bmZpbHRlcmVkV29yZHMgfD4gQXJyYXkubWFwKGZ1biB4IC0+IGZpbHRlcldvcmQoeCkpOwpwcmludGZuICIlQSIgZmlsdGVyZWRXb3Jkczs=