asearch module

asearch module provides functions for approximate pattern matching.

apattern (word)
amatch (apattern, word { , allowedDistance } )
e.g.
pat = apattern("findthis")
amatch(pat, "findthat", 2)  ==> true