(define me-length (string-length (car (argv))))

(define (set-proc-title str))
  (receive (c v) (argc+argv)
	   ((foreign-lambda* void ((c-string str) (c-pointer argv) (integer len))
			     "char *name = ((char**) argv)[0];
			     strncpy(name,str,len);
			     ")
			     str v me-length)))