1 files changed, 46 insertions, 0 deletions
diff --git a/files/practicum/StdRoman.icl b/files/practicum/StdRoman.icl
new file mode 100644
index 0000000..fec4461
--- /dev/null
+++ b/files/practicum/StdRoman.icl
@@ -0,0 +1,46 @@
+implementation module StdRoman
+
+import StdEnv, RomeinsGetal
+
+instance +			Roman where ...
+instance -  		Roman where ...
+
+instance zero		Roman where ...
+
+instance *  		Roman where ...
+
+instance /			Roman where ...
+instance one		Roman where ...
+
+
+instance ^			Roman where ...
+instance abs		Roman where ...
+instance sign		Roman where ...
+instance ~			Roman where ...
+
+instance ==			Roman where ...
+instance <  		Roman where ...
+instance isEven 	Roman where ...
+instance isOdd		Roman where ...
+
+class toRoman a :: !a -> Roman
+instance toRoman	Char  where ...
+instance toRoman	Int   where ...
+instance toRoman	Real  where ...
+instance toRoman {#Char}  where ...
+
+class fromRoman a :: !Roman -> a
+instance fromRoman	Int   where ...
+instance fromRoman	Char  where ...
+instance fromRoman	Real  where ...
+instance fromRoman {#Char}where ...
+
+instance rem Roman        where ...
+instance gcd Roman        where ...
+instance lcm Roman        where ...
+
+Start :: (Roman,String,Int,Int)
+Start = (r,fromRoman r,toInt r,n)
+where
+	r = (toRoman 42) * (toRoman 101)
+	n = 42 * 101