gistfile1.hs

-- the following is guaranteed not to have something at the child node as we
-- checked it above 
insertNode contextNode@TrieNode{children=childNodes} 
           TargetIsSmallerDatum {pre=target,
                                 suffixS= suffixStringOfSource} 
    = contextNode{ children=(insertNewChildWordNode suffixStringOfSource childNodes) }