created a new function: paredit-duplicate-sexp