--  Programmed by Jedidiah Barber
--  Released into the public domain


with

    Ada.Text_IO,
    Here_I_Am;


procedure Where_Exec is
begin

    Ada.Text_IO.Put_Line (Here_I_Am.Executable);

end Where_Exec;