make "input readlist   ; in: string 75000
show map "number? :input  ; [false true]

make "input readword   ; in: 75000
show :input + 123       ; 75123
make "input readword   ; in: string 75000
show :input             ; string 75000