Initial commitHEADmain

1 files changed, 20 insertions, 0 deletions

diff --git a/stack/src/main.adb b/stack/src/main.adb
new file mode 100644
index 0000000..977a46b
--- /dev/null
+++ b/stack/src/main.adb
@@ -0,0 +1,20 @@
+with Ada.Assertions; use Ada.Assertions;
+with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
+with Ada.Text_IO; use Ada.Text_IO;
+
+with Stack;
+
+procedure Main is
+   package IntStack is new Stack (Integer);
+   S : IntStack.Stack;
+   Val : Integer;
+begin
+   Put_Line ("Hello world!");
+   for I in 1 .. 5 loop
+      IntStack.Push (S, I);
+   end loop;
+   while not IntStack.Empty (S) loop
+      Assert (IntStack.Pop (S, Val));
+      Put_Line (Val'Image);
+   end loop;
+end Main;