unparseNary :: [Range] -> String -> [String] -> String
unparseNary ranges op children = foldl over "" children `over` foldl over "" (map place ranges)
  where place (begin, _) = indent begin op
unparseNary :: [Range] -> String -> [String] -> String
unparseNary ranges op children = foldl over "" children `over` foldl over "" (map place ranges)
  where place (begin, _) = indent begin op
unparseNary ranges op children = foldl over "" children `over` foldl over "" (map place ranges)
  where place (begin, _) = indent begin op