diff --git a/visualisers/gmvis/src/ui.cljs b/visualisers/gmvis/src/ui.cljs
index 2d77719..0eeaa26 100644
--- a/visualisers/gmvis/src/ui.cljs
+++ b/visualisers/gmvis/src/ui.cljs
@@ -89,8 +89,8 @@
 
     {:tag "NAp" :contents [f x]}
     (maybe-parens (> p app-prec)
-                  (words "App"
-                         (ppr-node* app-prec heap f)
+                  (words (ppr-node* app-prec heap f)
+                         "@"
                          (ppr-node* app-prec+1 heap x)))
 
     nil (str "<broken pointer: &" addr ">")
@@ -154,22 +154,22 @@
 ;------------------------------------------------------------------------------;
 
 (defn GM [{code :_gmCode
-          stack :_gmStack
-          heap :_gmHeap}]
+           stack :_gmStack
+           heap :_gmHeap}]
   [Root {:direction "horizontal"}
    [Pane {:order 0 :initialSize "0.333fr"}
     [Heap]]
    [Splitter {:order 1 :size +split-width+}]
    [Pane {:order 2 :initialSize "0.333fr"}
     [Root {:direction "vertical"}
-     [Pane {:order 0 :initialSize "0.7fr"}
+     [Pane {:order 0 :initialSize "0.5fr"}
       [Stack heap stack]]
      [Splitter {:order 1 :size +split-width+}]
-     [Pane {:order 2 :initialSize "0.3fr"}
+     [Pane {:order 2 :initialSize "0.5fr"}
       [Code code]]]]
    [Splitter {:order 3 :size +split-width+}]
-    [Pane {:order 5 :initialSize "0.333fr"}
-     [Dump]]])
+   [Pane {:order 4 :initialSize "0.333fr"}
+    [Dump]]])
 
 (defn Main []
   (prn @current-evaluation)