;; //ideone.com/vzncKq
 
(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)
  (let ((scr (make-hash-table :test #'equalp)))
    (loop for char across chars
          for p = (make-point :x 0 :y 0)
            then (point+ p (make-point-from-char char))
          do (setf (gethash p scr) char))
    ;;
    (destructuring-bind (min-x min-y
                         max-x max-y)
        (loop for point being the hash-keys in scr using (hash-value char)
              maximize (point-x point) into max-x
              maximize (point-y point) into max-y
              minimize (point-x point) into min-x
              minimize (point-y point) into min-y
              finally (return (list min-x min-y
                                    max-x max-y)))
      (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 #\*)))
               (terpri)))))
 
(loop while (listen)
      do (draw (read-line))
         (terpri))
 

OzsgLy9pZGVvbmUuY29tL3Z6bmNLcQoKKGRlZnN0cnVjdCBwb2ludCB4IHkpCgooZGVmdW4gcG9pbnQrIChwIHEpCiAgKG1ha2UtcG9pbnQgOnggKCsgKHBvaW50LXggcCkgKHBvaW50LXggcSkpCiAgICAgICAgICAgICAgOnkgKCsgKHBvaW50LXkgcCkgKHBvaW50LXkgcSkpKSkKCihkZWZ1biBtYWtlLXBvaW50LWZyb20tY2hhciAoYykKICAoZWNhc2UgYwogICAgKCNcPiAobWFrZS1wb2ludCA6eCAxIDp5IDApKQogICAgKCNcdiAobWFrZS1wb2ludCA6eCAwIDp5IDEpKQogICAgKCNcPCAobWFrZS1wb2ludCA6eCAtMSA6eSAwKSkKICAgICgjXF4gKG1ha2UtcG9pbnQgOnggMCA6eSAtMSkpKSkKCihkZWZ1biBkcmF3IChjaGFycykKICAobGV0ICgoc2NyIChtYWtlLWhhc2gtdGFibGUgOnRlc3QgIydlcXVhbHApKSkKICAgIChsb29wIGZvciBjaGFyIGFjcm9zcyBjaGFycwogICAgICAgICAgZm9yIHAgPSAobWFrZS1wb2ludCA6eCAwIDp5IDApCiAgICAgICAgICAgIHRoZW4gKHBvaW50KyBwIChtYWtlLXBvaW50LWZyb20tY2hhciBjaGFyKSkKICAgICAgICAgIGRvIChzZXRmIChnZXRoYXNoIHAgc2NyKSBjaGFyKSkKICAgIDs7CiAgICAoZGVzdHJ1Y3R1cmluZy1iaW5kIChtaW4teCBtaW4teQogICAgICAgICAgICAgICAgICAgICAgICAgbWF4LXggbWF4LXkpCiAgICAgICAgKGxvb3AgZm9yIHBvaW50IGJlaW5nIHRoZSBoYXNoLWtleXMgaW4gc2NyIHVzaW5nIChoYXNoLXZhbHVlIGNoYXIpCiAgICAgICAgICAgICAgbWF4aW1pemUgKHBvaW50LXggcG9pbnQpIGludG8gbWF4LXgKICAgICAgICAgICAgICBtYXhpbWl6ZSAocG9pbnQteSBwb2ludCkgaW50byBtYXgteQogICAgICAgICAgICAgIG1pbmltaXplIChwb2ludC14IHBvaW50KSBpbnRvIG1pbi14CiAgICAgICAgICAgICAgbWluaW1pemUgKHBvaW50LXkgcG9pbnQpIGludG8gbWluLXkKICAgICAgICAgICAgICBmaW5hbGx5IChyZXR1cm4gKGxpc3QgbWluLXggbWluLXkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbWF4LXggbWF4LXkpKSkKICAgICAgKGxvb3AgZm9yIHkgZnJvbSBtaW4teSB1cHRvIG1heC15CiAgICAgICAgICAgIGRvIChsb29wIGZvciB4IGZyb20gbWluLXggdXB0byBtYXgteAogICAgICAgICAgICAgICAgICAgICBmb3IgYyA9IChnZXRoYXNoIChtYWtlLXBvaW50IDp4IHggOnkgeSkgc2NyKQogICAgICAgICAgICAgICAgICAgICBkbyAocHJpbmMgKG9yIGMgI1wqKSkpCiAgICAgICAgICAgICAgICh0ZXJwcmkpKSkpKQoKKGxvb3Agd2hpbGUgKGxpc3RlbikKICAgICAgZG8gKGRyYXcgKHJlYWQtbGluZSkpCiAgICAgICAgICh0ZXJwcmkpKQo=

Jmd0OyZndDsmZ3Q7Jmd0OyZndDt2dnZ2diZsdDsmbHQ7Jmx0OyZsdDteXl5eCiZsdDsmbHQ7Jmx0OyZsdDteXl5eJmd0OyZndDsmZ3Q7Jmd0OyZndDt2diZsdDsmbHQ7Jmx0OyZsdDsmbHQ7Jmx0OyZsdDsmbHQ7Jmx0OyZsdDsmbHQ7dnZ2Jmd0OyZndDsmZ3Q7Xl5eXl5eXiZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDsmZ3Q7Jmd0OyZndDt2dnZ2dnYK

>>>>>vvvvv<<<<^^^^
<<<<^^^^>>>>>vv<<<<<<<<<<<vvv>>>^^^^^^^>>>>>>>>>>vvvvvv