diff --git a/interp.hs b/interp.hs
index d7f71ea..f75ee26 100644
--- a/interp.hs
+++ b/interp.hs
@@ -63,6 +63,8 @@ eval (StrConst s) = return $ StrV s
 
 eval UnitConst = return UnitV
 
+eval (Block body) = foldr1 (>>) $ map eval body
+
 eval (ListConst v) =
 	mapM eval v >>= \xs ->
 		return $ ListV xs