1 files changed, 1 insertions, 0 deletions
diff --git a/common.sml b/common.sml
index ffb4fa6..13d9ff8 100644
--- a/common.sml
+++ b/common.sml
@@ -149,6 +149,7 @@ fun F z = bind A0 (fn (_, mf) => mf ()) z
 val I = fn z => bindWith2str Int.toString z
 val C = fn z => bindWith2str str z
 val B = fn z => bindWith2str Bool.toString z
+val W64 = fn z => bindWith2str Word64.toString z
 val R = fn z => bind A1 (fn n => fn (output, _) => app (fn f => f ())
         (List.tabulate (n, fn _ => fn () => output "    "))) z