sml in rouge-1.2.0

- old
+ new

@@ -1,3 +1,7 @@
\ No newline at end of file
+datatype shape
+   = Circle   of loc * real      (* center and radius *)
+   | Square   of loc * real      (* upper-left corner and side length; axis-aligned *)
+   | Triangle of loc * loc * loc (* corners *)