anchor.diff:  
   
   (define init_clones (clones prefix)
  -  (for clone clones  (invoke  sys.stderr 'write' (concat 'clone: ' clone ' with prefix ' prefix '\n')))
     (if (== prefix 'plambda')
  -      (apply plambda.actors.actorlib.send 'system' 'plambda' 'start maude0 iop_maude_wrapper basura')
  +      (seq
  +       (for clone clones
  +	    (seq 
  +	     (invoke  sys.stderr 'write' (concat 'clone: ' clone ' with prefix ' prefix '\n'))
  +	     (apply plambda.actors.actorlib.send clone 'plambda' '(load "hello.lsp")')
  +	     )
  +	    )
  +       (apply plambda.actors.actorlib.send 'system' 'plambda' 'start maude0 iop_maude_wrapper basura')
  +       )
  +    )
  +  (if (== prefix 'maude')
  +      (for clone clones
  +	   (seq 
  +	    (invoke  sys.stderr 'write' (concat 'clone: ' clone ' with prefix ' prefix '\n'))
  +	    )
  +	   )
       )
     )
   
  
positive.code: 
  (import 'plambda.actors.actorlib')
  
  (define cloner (message)
    (let ((tokens (invoke message 'split')))
      (if (> (apply len tokens) (int 1))
  	(let ((verb (get tokens (int 0)))
  	      (noun (get tokens (int 1))))
  	  (if (== verb 'startOK')
  	      (seq
  	       (invoke clones 'append' noun)
  	       (if (< (apply len clones) population)
  		   (seq 
  		    (invoke  sys.stderr 'write' (concat 'Handled ' noun ' more coming\n'))
  		    (apply plambda.actors.actorlib.send 'system' 'plambda' 'start plambda pyactor')
  		    )
  		 (seq (invoke  sys.stderr 'write' (concat 'Handled ' noun ' enough already\n'))
  		      (apply init_clones)
  		      )
  		 )
  	       (boolean true)
  	       )
  	    (seq
  	     (boolean false)
  	     )
  	    )
  	  )
        )
      )
    )
  
  
  (define make_cloner (prefix executable args clones count)
    (lambda (message)
      (let ((tokens (invoke message 'split')))
  
negative.code: 		 (invoke clones 'append' noun)
  		 (if (< (apply len clones) count)
  		     (seq 
  		      (invoke  sys.stderr
  			       'write'
  			       (concat 'Handled ' noun ' more coming\n'))
  		      (apply plambda.actors.actorlib.send
  			     'system'
  			     'plambda'
  			     (concat 'start ' (concat prefix (apply len clones)) ' ' executable ' ' args))
  		      )
  		   (seq (invoke  sys.stderr
  				 'write'
  				 (concat 'Handled ' noun ' enough already\n'))
  			(apply init_clones clones prefix)
  			)
  		   )
  