let
pwd () =
reduce (
Sys
.getcwd ())