(define (get-proc-title)
  (receive (c v) (argc+argv)
    (print ((foreign-lambda* c-string ((c-pointer argv))
        "C_return(((char**) argv)[0]);")
      v))))