Lizz Ross wrote:

This gives me the error message :28 - Syntax error in input (unexpected symbol "wrap")

Sorry. Looks like my mailer ate tabulation. Just correct the intendation: -- loads list of strings in the tree ins_list :: [String] -> BinTree Word_stat ins_list lst = foldl ins_in_tree Leaf (map wrap lst) where wrap :: String -> Word_stat wrap s = Word_stat s