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