diff --git a/twotasking.adb b/twotasking.adb
new file mode 100644
index 0000000..0b98c21
--- /dev/null
+++ b/twotasking.adb
@@ -0,0 +1,32 @@
+--
+--
+--
+
+with Ada.Text_IO, Ada.Float_Text_IO;
+with Ada.Numerics.Float_Random;
+use Ada.Float_Text_IO, Ada.Text_IO;
+
+procedure TwoTasking is
+    task type TenLooper (Id : Character) is
+    end TenLooper;
+
+    task body TenLooper is
+        Seed : Ada.Numerics.Float_Random.Generator;
+    begin
+        Ada.Numerics.Float_Random.Reset (Seed, Character'Pos (Id));
+        for I in 1 .. 10 loop
+            declare
+                Offset : Duration := Duration (Ada.Numerics.Float_Random.Random (Seed));
+            begin
+                Put_Line ("Derp: " & Id &  " :: " & Integer'Image (I));
+                Put_Line ("Delaying: " & Duration'Image (Offset));
+                delay Offset;
+            end;
+        end loop;
+    end TenLooper;
+
+    Task_1 : TenLooper ('A');
+    Task_2 : TenLooper ('B');
+begin
+    Put_Line ("..waiting for tasks to complete");
+end TwoTasking;