let cp_p src dest = Cmd (S [A"cp"; A"-p"; P src; Px dest])