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