let
program ?(returns=0) ?host p =
`
Command_returns
(
Ketrew_target
.
Command
.program ?host p, returns)