Evaluated proc cgetchar {str x y} { }