#tootcoding  #commonLisp
(loop
 :for cmd
 :in (list '(com-set-cur1 grass)
 '(com-l) '(com-j) '(com-push-cur1)
 '(com-h) '(com-push-cur1))
 :do
 (execute-frame-command *nic* cmd)
 (sleep 1))
 #tootcoding  #commonLisp
(execute-frame-command *nic* '(writef garden))
EDIT:
On disk, GARDEN is now:
(SOIL) (SOIL) (SOIL) (SOIL) (SOIL)
(SOIL) (SOIL GRASS) (SOIL) (SOIL) (SOIL)
(SOIL) (SOIL) (SOIL) (SOIL GRASS) (SOIL GRASS)
(SOIL) (SOIL) (SOIL) (SOIL) (SOIL)
 
      
  
             
      
  
                            
                        
                         
      
  
                            
                        
                         
      
  
                            
                        
                        