let
set_cmd rcmd =
String
(
fun
s
->
rcmd :=
Sh
s)