Fix sample-program

sample-programs/basic-0

@@ -1,20 +1,15 @@
-data Bool () where {
+data Bool () where
-    True : Bool ()
+    True  : Bool ()
     False : Bool ()
-};
 
-even : Int -> Bool ();
+not x = case x of
-even x = not (odd x) ;
+    True => False
+    False => True
+
+even : Int -> Bool ()
+even x = not (odd x)
+odd x = not (even x)
 
-odd x = not (even x) ;
-
-not x = case x of {
-    True => False;
-    False => True;
-};
-
-f = g;
-g = f;