1 files changed, 1 insertions, 1 deletions
diff --git a/common.sml b/common.sml
index 13d9ff8..6b23c4d 100644
--- a/common.sml
+++ b/common.sml
@@ -149,7 +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 W = fn z => bindWith2str (Word.fmt StringCvt.DEC) z
 val R = fn z => bind A1 (fn n => fn (output, _) => app (fn f => f ())
         (List.tabulate (n, fn _ => fn () => output "    "))) z