Introduce explosions

1 files changed, 8 insertions, 4 deletions

diff --git a/test.adb b/test.adb
index 401aeab..f757eb4 100644
--- a/test.adb
+++ b/test.adb
@@ -2,10 +2,14 @@ with Text_IO; use Text_IO;
 with Ada.Strings.Fixed; use Ada.Strings.Fixed;
 with Ada.Strings; use Ada.Strings;
 
-
 procedure Test is
+    type IVector2 is record
+        X, Y: Integer;
+    end record;
+    type Ten_Numbers is array(IVector2) of Integer;
+
+    Position: IVector2;
+    Xs: Ten_Numbers;
 begin
-   for Index in 1..10 loop
-      Put_Line(Trim(Integer'Image(Index), Left));
-   end loop;
+    null;
 end;