(let 
((*MODEL* *HIDDEN-GUIDEMAP*)) 
(SEND *MODEL* :TITLE "Model Your Data") 
(SEND *MODEL* :NUM-ICONS 8) 
(SEND *MODEL* :CONNECTION-LIST (QUOTE ((1) (2 3) (7) (7) (NIL) (6) (NIL) (4 5)))) 
(SEND *MODEL* :X (QUOTE (89 89 44 137 44 137 137 89))) 
(SEND *MODEL* :Y (QUOTE (34 63 96 96 175 175 204 135))) 
(SEND *MODEL* :ICON-TYPE (QUOTE (7 6 6 6 6 6 6 7))) 
(SEND *MODEL* :ICON-TITLE (QUOTE (" " "Save Model" "Visualize Model" "Report Model" "Return" "Create Data" "Link:Model" " "))) 
(SEND *MODEL* :ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *MODEL* :REDRAW-ORDER (QUOTE (4 5 2 3 0 6 7 1))) 
(SEND *MODEL* :SELECTED-ICON 1) 
(SEND *MODEL* :TOOLBAR T) 
(SEND *MODEL* :NUM-DATA-ICONS 0) 
(SEND *MODEL* :NUM-MODEL-ICONS 0) 
(SEND *MODEL* :DATA-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *MODEL* :MODEL-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *MODEL* :SELECTED-DATA-ICON NIL) 
(SEND *MODEL* :PREVIOUSLY-SELECTED-DATA-ICON NIL) 
(SEND *MODEL* :NUM-DATA-MENU-ITEMS NIL) 
(SEND *MODEL* :NUM-MODEL-MENU-ITEMS NIL) 
(SEND *MODEL* :ACTIVE-BUTTON-LIST (QUOTE (1))) 
(LET ((N (QUOTE 8)) (X (QUOTE (89 89 44 137 44 137 137 89))) (Y (QUOTE (34 63 96 96 175 175 204 135))) (ICON-TITLE (QUOTE (" " "Save Model" "Visualize Model" "Report Model" "Return" "Create Data" "Link:Model" " "))) (ICON-TYPE (QUOTE (7 6 6 6 6 6 6 7))) (ICON-LIST NIL)) (DOTIMES (I N) (SETF ICON-LIST (COMBINE ICON-LIST (MAKE-ICON *MODEL* (SELECT X I) (SELECT Y I) (SELECT ICON-TITLE I) (SELECT ICON-TYPE I)))) (SEND *MODEL* :ICON-LIST (REST ICON-LIST)))) 
(SEND *MODEL* :DATA-ICON-LIST (SELECT (SEND *MODEL* :ICON-LIST) (SEND *MODEL* :DATA-ICON-NUMBER-LIST))) 
(SEND *MODEL* :MODEL-ICON-LIST (SELECT (SEND *MODEL* :ICON-LIST) (SEND *MODEL* :MODEL-ICON-NUMBER-LIST))) 
(SEND (SELECT (SEND *MODEL* :ICON-LIST) 0) :NUM-IN-CONNECTIONS 0) 
(SEND (SELECT (SEND *MODEL* :ICON-LIST) 0) :NUM-IN-CONNECTED-NOW 0) 
(SEND (SELECT (SEND *MODEL* :ICON-LIST) 7) :NUM-IN-CONNECTIONS 2) 
(SEND (SELECT (SEND *MODEL* :ICON-LIST) 7) :NUM-IN-CONNECTED-NOW 0) )