     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" 

defmodule Presentation do
  alias RepresentationGraph.Node
  
  @m 2
  
  def present(tree) do
    "--- " <>
    produce(tree) <>


  @spec indent(non_neg_integer) :: String.t
  defp indent(0), do: ""
  defp indent(level) do
    String.duplicate(" ", level * 2)
  end
end
