let
ln_s pointed pointer =
Cmd
(
S
[
A
"ln"
;
A
"-s"
;
P
pointed;
Px
pointer])