with POSIX.Process_Environment;

with EUP.Text_IO;

procedure pwd is
begin
   EUP.Text_IO.Put_Line
     (File => EUP.Text_IO.Standard_Output,
      Item => POSIX.Process_Environment.Get_Working_Directory);
end Pwd;