diff --git a/mu.arc b/mu.arc
index 0b13030c..07c15ffe 100644
--- a/mu.arc
+++ b/mu.arc
@@ -290,6 +290,9 @@
                     (if types*.type!array
                       (new-array type (v arg.1))
                       (new-scalar type)))
+                print
+                  (do1 nil
+                    (apply prn (map m arg)))
                 reply
                   (do (pop-stack context)
                       (if empty.context (return ninstrs))
diff --git a/x.mu b/x.mu
index 7341c5d2..1a3c3175 100644
--- a/x.mu
+++ b/x.mu
@@ -2,4 +2,5 @@
   ((x integer) <- literal 1)
   ((y integer) <- literal 3)
   ((z integer) <- add (x integer) (y integer))
+  (print (x integer) (y integer) (z integer))
 )