1 files changed, 31 insertions, 0 deletions
diff --git a/src/misc.adb b/src/misc.adb
new file mode 100644
index 0000000..d1aa7ca
--- /dev/null
+++ b/src/misc.adb
@@ -0,0 +1,31 @@
+
+
+package body Misc is
+
+
+    function Max
+           (A, B : in Integer)
+        return Integer is
+    begin
+        if B > A then
+            return B;
+        else
+            return A;
+        end if;
+    end Max;
+
+
+    function Min
+           (A, B : in Integer)
+        return Integer is
+    begin
+        if B < A then
+            return B;
+        else
+            return A;
+        end if;
+    end Min;
+
+
+end Misc;
+