(vl-load-com)
  (command"_zoom""_W" '(-26 -2) '(22 26))
  (mapcar '(lambda (x)
            (grvecs x)
            (command "_.delay" 400)
            )
          '((3 (0 0) (0 1))
            (3 (0 1) (10 1))
            (3 (10 1) (4 5))
            (3 (4 5) (9 5))
            (3 (9 5) (3 9))
            (3 (3 9) (8 9))
            (3 (8 9) (2 13))
            (3 (2 13) (7 13))
            (3 (7 13) (2 17))
            (3 (2 17) (6 17))
            (3 (6 17) (0 25))
            (3 (0 25) (-6 17))
            (3 (-6 17) (-2 17))
            (3 (-2 17) (-7 13))
            (3 (-7 13) (-2 13))
            (3 (-2 13) (-8 9))
            (3 (-8 9) (-3 9))
            (3 (-3 9) (-9 5))
            (3 (-9 5) (-4 5))
            (3 (-4 5) (-10 1))
            (3 (-10 1) (0 1))
            )
          )
  (alert(vl-list->string '(70 114 111 104 101 32 87 101 105 104 110 97 99 104 116 101 110)))