1 files changed, 4 insertions, 0 deletions

diff --git a/point.toc b/point.toc
index ede3c7c..27f58f0 100644
--- a/point.toc
+++ b/point.toc
@@ -8,3 +8,7 @@ pkg "point";
 		 p.x = x;
 		 p.y = y;
 };
+
+mk_point2 ::= fn(x, y:int) p: Point {
+		  p = mk_point(x*x, y*y);
+};
\ No newline at end of file