Test

node_modules/shiki/samples/ada.sample

@@ -0,0 +1,22 @@
+with
+    Ada.Text_IO,
+    Ada.Integer_Text_IO;
+use Ada;
+
+procedure fizz_buzz is
+begin
+    for i in 1..100 loop
+        if i mod 15 = 0 then
+            Text_IO.Put_Line("fizz buzz");
+        elsif i mod 5 = 0 then
+            Text_IO.Put_Line("buzz");
+        elsif i mod 3 = 0 then
+            Text_IO.Put_Line("fizz");
+        else
+            Integer_Text_IO.put(i, Width => 0);
+            Text_IO.New_Line;
+        end if;
+    end loop;
+end fizz_buzz;
+
+-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb