anchor.diff:  		 (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))
  +		      (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'))
  +		   (seq (invoke  sys.stderr
  +				 'write'
  +				 (concat 'Handled ' noun ' enough already\n'))
   			(apply init_clones clones prefix)
   			)
   		   )
  
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: 
  
  (define init_clones (clones prefix)
    (if (== prefix 'plambda')
        (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'))
  	    )
  	   )
      )
    )
  
  