let
clean () =
Shell
.chdir
Pathname
.pwd;
Shell
.rm_rf !
Options
.build_dir