drawFilter :: Filter -> String
drawFilter = 
  drawTree. fmap (show. nodeContent)
drawFilter :: Filter -> String
drawFilter = 
  drawTree. fmap (show. nodeContent)
drawFilter = 
  drawTree. fmap (show. nodeContent)