Function: shell-extract-num

(fn STR)