     block_sequence(%Node{value: list, tag: t}, n)
   end
   defp mapping_value(%Node{value: map, tag: t}, n) when is_map(map) do
-    block_mapping(%Node{value: map, tag: t}, n + @m)
+    block_mapping(%Node{value: map, tag: t}, n + 1)
   end
   defp mapping_value(node, _n) do
     " " <> literal(node, 0) <> "\n" 

  
  defp block_sequence(%Node{value: list, tag: t}, n) do
    list |> List.foldl "\n", fn val, acc ->
      acc <> indent(n) <> "- " <> sequence_element(val, n + @m)
    end
  end
  

defmodule Presentation do
  alias RepresentationGraph.Node

  def present(tree) do
    "--- " <>
    produce(tree) <>
