Demonstrating how <https://github.com/cforler/Ada-Crypto-Library/blob/master/src/crypto-types-base64.ads> is broken

experiment.adb

with Ada.Text_IO;

with Crypto.Types.Base64;

procedure Experiment is
   package Boolean64 is new Crypto.Types.Base64 (Boolean);

   Some_Data : constant Crypto.Types.Bytes := (0, 12, 24, 48, 96, 192, 65, 65, 65);

   use Ada.Text_IO;
begin
   for Element of Boolean64.Encode_Base64 (Some_Data) loop
      Put_Line (Boolean'Image (Element));
   end loop;
end Experiment;

Drop the file in the same directory as crypto-types-base64.ads, compile with gnatmake -O3 experiment, and run ./experiment...