RosettaCodeData/Task/Window-creation/Emacs-Lisp/window-creation.l