import RedBlackTree main :: IO () main = do corpusData <- getContents -- split the data into words -- build a red-black tree -- calculate statistics from tree -- print statistics -- check tree undefined