diff --git a/src/paradise.modal b/src/paradise.modal
index 70e3b0d..bb5dbf2 100644
--- a/src/paradise.modal
+++ b/src/paradise.modal
@@ -4,14 +4,18 @@
 
 ?(?-) (Sight)
 
-<> (:?p ((sight > $ :?V ?c) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r)))))
-	((\nYou are a ?V in a ?p\nYou see a ?i, a ?j and a ?k.\n\n) print :?p ((> $ :?V ?c) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r)))))
-<> (:?p ((sight > $ :?V ?c) ((:?i ?I) ((:?j ?J) ?r))))
-	((\nYou are a ?V in a ?p\nYou see a ?i and a ?j.\n\n) print :?p ((> $ :?V ?c) ((:?i ?I) ((:?j ?J) ?r))))
-<> (:?p ((sight > $ :?V ?c) ((:?i ?I) ?r)))
-	((\nYou are a ?V in a ?p\nYou see a ?i.\n\n) print :?p ((> $ :?V ?c) ((:?i ?I) ?r)))
-<> (:?p ((sight > $ :?V ?c) ?r))
-	((\nYou are a ?V in a ?p .\n\n) print :?p ((> $ :?V ?c) ?r))
+<> (:?p ((sight > $ :?V ?C) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r)))))
+	((\nYou are a ?V in a ?p\nYou see a ?i, a ?j and a ?k.\n\n) print 
+	:?p ((> $ :?V ?C) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r)))))
+<> (:?p ((sight > $ :?V ?C) ((:?i ?I) ((:?j ?J) ?r))))
+	((\nYou are a ?V in a ?p\nYou see a ?i and a ?j.\n\n) print 
+	:?p ((> $ :?V ?C) ((:?i ?I) ((:?j ?J) ?r))))
+<> (:?p ((sight > $ :?V ?C) ((:?i ?I) ?r)))
+	((\nYou are a ?V in a ?p\nYou see a ?i.\n\n) print 
+	:?p ((> $ :?V ?C) ((:?i ?I) ?r)))
+<> (:?p ((sight > $ :?V ?C) ?r))
+	((\nYou are a ?V in a ?p .\n\n) print 
+	:?p ((> $ :?V ?C) ?r))
 
 ?(?-) (Cleanup articles)
 
@@ -21,36 +25,43 @@
 
 ?(?-) (Parade Primitives)
 
-<> (((create (?q ())) parse sight > $ :?V ?c) ?r)
-	((You created a ?q.\n) print (sight > $ :?V ?c) ((:?q ()) ?r))
+<> (((create (?q ())) parse sight > $ :?V ?C) ?r)
+	((You created a ?q.\n) print 
+	(sight > $ :?V ?C) ((:?q ()) ?r))
 
-<> (((become (?q ())) parse sight > $ :?V ?c) ((:?q ?x) ?r))
-	((You became the ?q.\n) print (sight > $ :?q ?x) ((:?V ?c) ?r))
+<> (((become (?q ())) parse sight > $ :?V ?C) ((:?q ?x) ?r))
+	((You became the ?q.\n) print 
+	(sight > $ :?q ?x) ((:?V ?C) ?r))
 <> ((become (?q ())) parse)
 	((You don't see a ?q.\n) print)
 
-<> (((enter (?q ())) parse sight > $ :?V ?c) ((:?q ?a) ?r))
-	((You entered the ?q.\n) print ((:?q ((sight > $ :?V ?c) ?a)) ?r))
+<> (((enter (?q ())) parse sight > $ :?V ?C) ((:?q ?a) ?r))
+	((You entered the ?q.\n) print 
+	((:?q ((sight > $ :?V ?C) ?a)) ?r))
 <> ((enter (?q ())) parse)
 	((You don't see a ?q.\n) print)
 
-<> (((:?p (((leave ()) parse sight > $ :?V ?c) ?r)) ?a))
-	((You left the ?p.\n) print (sight > $ :?V ?c) ((:?p ?r) ?a))
+<> (((:?p (((leave ()) parse sight > $ :?V ?C) ?r)) ?a))
+	((You left the ?p.\n) print 
+	(sight > $ :?V ?C) ((:?p ?r) ?a))
 <> ((leave ?q) parse)
 	((You cannot leave.\n) print)
 
-<> (((take (?q ())) parse sight > $ :?V ?c) ((:?q ?a) ?r))
-	((You took the ?q.\n) print (sight > $ :?V ((:?q ?a) ?c)) ?r)
+<> (((take (?q ())) parse sight > $ :?V ?C) ((:?q ?a) ?r))
+	((You took the ?q.\n) print 
+	(sight > $ :?V ((:?q ?a) ?C)) ?r)
 <> ((take (?q ())) parse)
 	((You don't see a ?q.\n) print)
 
-<> (((drop (?q ())) parse sight > $ :?V ((:?q ?a) ?c)) ?r)
-	((You dropped the ?q.\n) print (sight > $ :?V ?c) ((:?q ?a) ?r))
+<> (((drop (?q ())) parse sight > $ :?V ((:?q ?a) ?C)) ?r)
+	((You dropped the ?q.\n) print 
+	(sight > $ :?V ?C) ((:?q ?a) ?r))
 <> ((drop (?q ())) parse)
 	((You don't see a ?q.\n) print)
 
 <> ((transform (?q ())) parse sight > $ :?V)
-	((You transformed into a ?q.\n) print sight > $ :?q)
+	((You transformed into a ?q.\n) print 
+	sight > $ :?q)
 
 <> ((note ?q) parse) ()
 <> ((program ?q) parse) ()