--- a/number.c	Mon Nov 30 23:47:08 2009 -0500
+++ b/number.c	Tue Dec 01 03:59:31 2009 -0500
@@ -180,6 +180,14 @@
 	return 0;
 }
 
+int vis_whole_modulus(datum ** inputlist, queue_entry * worker_entry)
+{
+	inputlist[0] = copy_datum(inputlist[0], 0);
+	inputlist[0]->c.integers.num_a %= inputlist[1]->c.integers.num_a;
+	release_ref(inputlist[1]);
+	return 0;
+}
+
 
 int vis_greaterint(datum ** inputlist, queue_entry * worker_entry)
 {
@@ -424,4 +432,14 @@
 	release_ref(inputlist[0]);
 	inputlist[0] = output;
 	return 0;
-}
\ No newline at end of file
+}
+
+int vis_real_fromwhole(datum ** inputlist, queue_entry * worker_entry)
+{
+	datum * output = new_datum(BUILTIN_TYPE_REAL, 3, 0, worker_entry->instance->def->program);
+	output->c.real = inputlist[0]->c.integers.num_a;
+	release_ref(inputlist[0]);
+	inputlist[0] = output;
+	return 0;
+}
+