;; //ideone.com/vzncKq
;; //ideone.com/B76Dki
 
(defstruct point x y)
 
(defun point+ (p q)
  (make-point :x (+ (point-x p) (point-x q))
              :y (+ (point-y p) (point-y q))))
 
(defun make-point-from-char (c)
  (ecase c
    (#\> (make-point :x 1 :y 0))
    (#\v (make-point :x 0 :y 1))
    (#\< (make-point :x -1 :y 0))
    (#\^ (make-point :x 0 :y -1))))
 
(defun draw (chars &key start-char end-char (space-char #\*))
  (loop with scr = (make-hash-table :test #'equalp)
        with start = (make-point :x 0 :y 0)
 
        for c across chars
        for p = start then (point+ p (make-point-from-char c))
        for end = start then p
 
        minimize (point-x p) into min-x
        minimize (point-y p) into min-y
        maximize (point-x p) into max-x
        maximize (point-y p) into max-y
 
        do (setf (gethash p scr) c)
 
        finally (when start-char (setf (gethash start scr) start-char))
                (when end-char (setf (gethash end scr) end-char))
                (loop for y from min-y upto max-y
                      do (loop for x from min-x upto max-x
                               for c = (gethash (make-point :x x :y y) scr)
                               do (princ (or c space-char)))
                         (terpri))))
 
(loop while (listen)
      do (draw (read-line) :start-char #\A
                           :end-char #\Z
                           :space-char #\Space)
      do (terpri))
 

OzsgLy9pZGVvbmUuY29tL3Z6bmNLcQo7OyAvL2lkZW9uZS5jb20vQjc2RGtpCgooZGVmc3RydWN0IHBvaW50IHggeSkKCihkZWZ1biBwb2ludCsgKHAgcSkKICAobWFrZS1wb2ludCA6eCAoKyAocG9pbnQteCBwKSAocG9pbnQteCBxKSkKICAgICAgICAgICAgICA6eSAoKyAocG9pbnQteSBwKSAocG9pbnQteSBxKSkpKQoKKGRlZnVuIG1ha2UtcG9pbnQtZnJvbS1jaGFyIChjKQogIChlY2FzZSBjCiAgICAoI1w+IChtYWtlLXBvaW50IDp4IDEgOnkgMCkpCiAgICAoI1x2IChtYWtlLXBvaW50IDp4IDAgOnkgMSkpCiAgICAoI1w8IChtYWtlLXBvaW50IDp4IC0xIDp5IDApKQogICAgKCNcXiAobWFrZS1wb2ludCA6eCAwIDp5IC0xKSkpKQoKKGRlZnVuIGRyYXcgKGNoYXJzICZrZXkgc3RhcnQtY2hhciBlbmQtY2hhciAoc3BhY2UtY2hhciAjXCopKQogIChsb29wIHdpdGggc2NyID0gKG1ha2UtaGFzaC10YWJsZSA6dGVzdCAjJ2VxdWFscCkKICAgICAgICB3aXRoIHN0YXJ0ID0gKG1ha2UtcG9pbnQgOnggMCA6eSAwKQoKICAgICAgICBmb3IgYyBhY3Jvc3MgY2hhcnMKICAgICAgICBmb3IgcCA9IHN0YXJ0IHRoZW4gKHBvaW50KyBwIChtYWtlLXBvaW50LWZyb20tY2hhciBjKSkKICAgICAgICBmb3IgZW5kID0gc3RhcnQgdGhlbiBwCgogICAgICAgIG1pbmltaXplIChwb2ludC14IHApIGludG8gbWluLXgKICAgICAgICBtaW5pbWl6ZSAocG9pbnQteSBwKSBpbnRvIG1pbi15CiAgICAgICAgbWF4aW1pemUgKHBvaW50LXggcCkgaW50byBtYXgteAogICAgICAgIG1heGltaXplIChwb2ludC15IHApIGludG8gbWF4LXkKCiAgICAgICAgZG8gKHNldGYgKGdldGhhc2ggcCBzY3IpIGMpCgogICAgICAgIGZpbmFsbHkgKHdoZW4gc3RhcnQtY2hhciAoc2V0ZiAoZ2V0aGFzaCBzdGFydCBzY3IpIHN0YXJ0LWNoYXIpKQogICAgICAgICAgICAgICAgKHdoZW4gZW5kLWNoYXIgKHNldGYgKGdldGhhc2ggZW5kIHNjcikgZW5kLWNoYXIpKQogICAgICAgICAgICAgICAgKGxvb3AgZm9yIHkgZnJvbSBtaW4teSB1cHRvIG1heC15CiAgICAgICAgICAgICAgICAgICAgICBkbyAobG9vcCBmb3IgeCBmcm9tIG1pbi14IHVwdG8gbWF4LXgKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZvciBjID0gKGdldGhhc2ggKG1ha2UtcG9pbnQgOnggeCA6eSB5KSBzY3IpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkbyAocHJpbmMgKG9yIGMgc3BhY2UtY2hhcikpKQogICAgICAgICAgICAgICAgICAgICAgICAgKHRlcnByaSkpKSkKCihsb29wIHdoaWxlIChsaXN0ZW4pCiAgICAgIGRvIChkcmF3IChyZWFkLWxpbmUpIDpzdGFydC1jaGFyICNcQQogICAgICAgICAgICAgICAgICAgICAgICAgICA6ZW5kLWNoYXIgI1xaCiAgICAgICAgICAgICAgICAgICAgICAgICAgIDpzcGFjZS1jaGFyICNcU3BhY2UpCiAgICAgIGRvICh0ZXJwcmkpKQo=

Jmd0OyZndDsmZ3Q7Jmd0OyZndDt2dnZ2diZsdDsmbHQ7Jmx0OyZsdDteXl5eCiZsdDsmbHQ7Jmx0OyZsdDteXl5eJmd0OyZndDsmZ3Q7Jmd0OyZndDt2diZsdDsmbHQ7Jmx0OyZsdDsmbHQ7Jmx0OyZsdDsmbHQ7Jmx0OyZsdDsmbHQ7dnZ2Jmd0OyZndDsmZ3Q7Xl5eXl5eXiZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDt2dnZ2dnYKXl4mbHQ7Jmx0OyZsdDt2dnYmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDteXl5eXiZsdDsmbHQ7Jmx0OyZsdDsmbHQ7Jmx0OyZsdDsmbHQ7Jmx0O3Z2dnZ2dnYmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDteXl5eXl5eXl4mbHQ7Jmx0OyZsdDsmbHQ7Jmx0OyZsdDsmbHQ7Jmx0OyZsdDsmbHQ7Jmx0OyZsdDsmbHQ7Jmx0OyZsdDt2dnZ2dnZ2dnZ2diZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0O15eXl5eXl5eXl5eCg==

>>>>>vvvvv<<<<^^^^
<<<<^^^^>>>>>vv<<<<<<<<<<<vvv>>>^^^^^^^>>>>>>>>>>vvvvvv
^^<<<vvv>>>>>>^^^^^<<<<<<<<<vvvvvvv>>>>>>>>>>>>^^^^^^^^^<<<<<<<<<<<<<<<vvvvvvvvvvv>>>>>>>>>>>>>>>>>>^^^^^^^^^^^