--- /dev/null
+import "Prelude"
+
+test1 :: ()
+test1 = do
+ (problem, foo) = (1, 2)
+ problem = 1
+ (problem, bar) = (3, 4)
+ ()
+
+test2 :: ()
+test2 = do
+ (problem, foo) = (1, 2)
+ (problem, bar) = (3, 4)
+ ()
+
+main = ()
+--
+()
\ No newline at end of file