diff --git a/Interp.hs b/Interp.hs
index fd67031..a4189c6 100644
--- a/Interp.hs
+++ b/Interp.hs
@@ -68,6 +68,7 @@ instance Show Value where
 	show (IntV i) = show i
 	show (StrV s) = show s
 	show (BoolV b) = show b
+	show (TupleV []) = "(,)"
 	show (TupleV v) = "(" ++ intercalate "," (map show v) ++ ")"
 	show (ListV v) = show v
 	show (DictV d) = "<dict " ++ show d ++ ">"