(progn
 (newline)
(insert "        \\O/")
(newline)
(setq y 0)
(while (< y 19)
  (if (or (= y 0) (= y 9) (= y 18))
      (progn
        (setq x 0)
        (while (< x 19)
          (if (or (= x 0) (= x 9) (= x 18))
              (insert "+")
            (insert "-"))
          (setq x (+ x 1))))
    (progn
      (setq x 0)
      (while (< x 19)
        (if (or (= x 0) (= x 9) (= x 18))
            (insert "!")
          (insert " "))
        (setq x (+ x 1))))
    )
  (setq y (+ y 1))
  (newline))
)
