wordToTree :: FilePath -> Int -> Int -> Pattern -> Maybe Pattern -> TreeGenerator [Tree]
wordToTree _ 0 _ _ _ = return []
wordToTree :: FilePath -> Int -> Int -> Pattern -> Maybe Pattern -> TreeGenerator [Tree]
wordToTree _ 0 _ _ _ = return []
wordToTree _ 0 _ _ _ = return []