diff --git a/src/paradise.modal b/src/paradise.modal
index 0f99348..1a3a3e6 100644
--- a/src/paradise.modal
+++ b/src/paradise.modal
@@ -21,6 +21,7 @@
 
 <> ((?x (into ?q)) parse) ((?x ?q) parse)
 <> ((?x (a ?q)) parse) ((?x ?q) parse)
+<> ((?x (an ?q)) parse) ((?x ?q) parse)
 <> ((?x (the ?q)) parse) ((?x ?q) parse)
 <> ((?x (?a (?b ()))) parse) ((?x (?a\s?b ())) parse)
 <> ((?x (?a (?b (in (the (?c ())))))) parse) ((?x (?a\s?b (?c ()))) parse)
@@ -74,7 +75,7 @@
 )
 
 <> (((enter ?v) wait :?V ?C) ((<- ?v :?v ?c) ?r)) (
-	print (You entered the ?q.\n)
+	print (You entered the ?v.\n)
 	((:?v ((sight > $ :?V ?C) ?c)) ?r)
 )
 
@@ -106,7 +107,7 @@
 )
 
 <> (((take ?v) wait :?V ?C) ((<- ?v :?v ?c) ?r)) (
-	print (You took the ?q.\n)
+	print (You took the ?v.\n)
 	(sight > $ :?V ((:?v ?c) ?C)) ?r
 )
 
@@ -127,7 +128,7 @@
 )
 
 <> (((drop ?v) wait :?V ((<- ?v :?v ?c) ?C)) ?r) (
-	print (You dropped the ?q.\n)
+	print (You dropped the ?v.\n)
 	(sight > $ :?V ?C) ((:?v ?c) ?r)
 )
 
@@ -161,8 +162,6 @@
 	((move ?a ?b) wait :?V ?C) ((-> ?b :?v ?c) ?r)
 )
 
-?(?-) (Look)
-
 ?(?-) (Transform)
 
 <> ((transform (?q ())) parse sight > $ :?V) (