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