anchor.diff:  
   (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')))
  
positive.code: 
  
  (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')
      )
    )
  
  
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)
  			)
  		   )
  