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