(setq input (read-file (main-args 2)))
(setq markup "<p><em>... %s ...</em>")
(seed (time-of-day))

(setq cookies (clean empty? (parse input "\r\n")))
(setq cookies (0 (+ 4 (rand 7)) (randomize cookies)))
(setq cookies (map (curry format markup) cookies))

(exec "winclip -c -w" (join cookies "\r\n" true))
(exit)