Hendekagon

(defn copy2clip [x]
  (let [w (StringWriter.)]
    (pprint x w)
    (.. Toolkit getDefaultToolkit getSystemClipboard
     (setContents (StringSelection. (.toString w)) nil))))